Conas cealla a thrasuí i gcolún amháin bunaithe ar luachanna uathúla i gcolún eile?
Ag ceapadh, tá raon sonraí agat ina bhfuil dhá cholún, anois, ba mhaith leat cealla a thrasuí i gcolún amháin go sraitheanna cothrománacha bunaithe ar luachanna uathúla i gcolún eile chun an toradh seo a leanas a fháil. An bhfuil aon smaointe maithe agat chun an fhadhb seo a réiteach in Excel?
Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le foirmlí
Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le cód VBA
Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le Kutools for Excel
Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le foirmlí
Leis na foirmlí eagar seo a leanas, is féidir leat na luachanna uathúla a bhaint agus a gcuid sonraí comhfhreagracha a thrasuí i sraitheanna cothrománacha, déan mar a leanas le do thoil:
1. Iontráil an fhoirmle eagar seo: = INDEX ($ A $ 2: $ A $ 16, MATCH (0, COUNTIF ($ D $ 1: $ D1, $ A $ 2: $ A $ 16), 0)) isteach i gcill bhán, D2, mar shampla, agus brúigh Shift + Ctrl + Iontráil eochracha le chéile chun an toradh ceart a fháil, féach an scáileán:
nótaí: San fhoirmle thuas, A2: A16 an colún ar mhaith leat na luachanna uathúla a liostáil uaidh, agus D1 an cill os cionn na cille foirmle seo.
2. Ansin tarraing an láimhseáil líonta síos go dtí na cealla chun na luachanna uathúla uile a bhaint, féach an scáileán:
3. Agus ansin lean ar aghaidh leis an bhfoirmle seo a iontráil i gcill E2: =IFERROR(INDEX($B$2:$B$16, MATCH(0, COUNTIF($D2:D2,$B$2:$B$16)+IF($A$2:$A$16<>$D2, 1, 0), 0)), 0), agus cuimhnigh brú Shift + Ctrl + Iontráil eochracha chun an toradh a fháil, féach an scáileán:
nótaí: San fhoirmle thuas: B2: B16 an bhfuil na sonraí colúin is mian leat a thrasuí, A2: A16 an colún ar mhaith leat na luachanna a thrasuí bunaithe ar, agus D2 tá an luach uathúil atá bainte agat i gCéim 1.
4. Ansin tarraing an láimhseáil líonta ar thaobh na láimhe deise de na cealla ar mhaith leat na sonraí trasuite a liostáil go dtí taispeántais 0, féach an scáileán:
5. Agus ansin lean ort ag tarraingt an láimhseála líonta síos go dtí raon na gcealla chun na sonraí trasuite a fháil mar a thaispeántar an pictiúr a leanas:
Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le cód VBA
B’fhéidir go bhfuil na foirmlí casta duit a thuiscint, anseo, is féidir leat an cód VBA seo a leanas a rith chun an toradh inmhianaithe a theastaíonn uait a fháil.
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla i gcolún eile:
Sub transposeunique()
'updateby Extendoffice
Dim xLRow As Long
Dim i As Long
Dim xCrit As String
Dim xCol As New Collection
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
Dim xCount As Long
Dim xVRg As Range
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("please select data range(only two columns):", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If (xRg.Columns.Count <> 2) Or _
(xRg.Areas.Count > 1) Then
MsgBox "the used range is only one area with two columns ", , "Kutools for Excel"
Exit Sub
End If
Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
If xOutRg Is Nothing Then Exit Sub
Set xOutRg = xOutRg.Range(1)
xLRow = xRg.Rows.Count
For i = 2 To xLRow
xCol.Add xRg.Cells(i, 1).Value, xRg.Cells(i, 1).Value
Next
Application.ScreenUpdating = False
For i = 1 To xCol.Count
xCrit = xCol.Item(i)
xOutRg.Offset(i, 0) = xCrit
xRg.AutoFilter Field:=1, Criteria1:=xCrit
Set xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)
If xVRg.Count > xCount Then xCount = xVRg.Count
xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible).Copy
xOutRg.Offset(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Next
xOutRg = xRg.Cells(1, 1)
xOutRg.Offset(0, 1).Resize(1, xCount) = xRg.Cells(1, 2)
xRg.Rows(1).Copy
xOutRg.Resize(1, xCount + 1).PasteSpecial Paste:=xlPasteFormats
xRg.AutoFilter
Application.ScreenUpdating = True
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit an raon sonraí a theastaíonn uait a úsáid a roghnú, féach an scáileán:
4. Agus ansin cliceáil OK cnaipe, popfaidh bosca pras eile amach le cur i gcuimhne duit cill a roghnú chun an toradh a chur, féach an scáileán:
6. Cliceáil OK cnaipe, agus rinneadh na sonraí i gcolún B a thrasuí bunaithe ar luachanna uathúla i gcolún A, féach an scáileán:
Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le Kutools for Excel
Má tá tú Kutools le haghaidh Excel, ag comhcheangal an Sraitheanna Comhcheangail Casta agus Cealla Scoilt fóntais, is féidir leat an tasc seo a chríochnú go tapa gan aon fhoirmlí ná cód.
| Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. |
Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:
1. Roghnaigh an raon sonraí a theastaíonn uait a úsáid. (Más mian leat na sonraí bunaidh a choinneáil, déan na sonraí a chóipeáil agus a ghreamú go suíomh eile ar dtús.)
2. Ansin cliceáil Kutools > Cumaisc & Scoilt > Sraitheanna Comhcheangail Casta, féach ar an scáileán:
3. Sa an Comhcheangail Sraitheanna Bunaithe ar an gColún bosca dialóige, déan na hoibríochtaí seo a leanas le do thoil:
(1.) Cliceáil ainm an cholúin ar mhaith leat sonraí a thrasuí bunaithe air, agus roghnaigh Eochair Bhunscoile;
(2.) Cliceáil colún eile ar mhaith leat a thrasuí, agus cliceáil Chomhcheangail ansin roghnaigh deighilteoir amháin chun na sonraí comhcheangailte a scaradh, mar shampla spás, camóg, leathchlón.
4. Ansin cliceáil Ok cnaipe, tá na sonraí i gcolún B curtha le chéile i gcill amháin bunaithe ar cholún A, féach an scáileán:
5. Agus ansin roghnaigh na cealla comhcheangailte, agus cliceáil Kutools > Cumaisc & Scoilt > Cealla Scoilt, féach ar an scáileán:
6. Sa an Cealla Scoilt dialóg, roghnaigh Scoilt go Colúin faoi na cineál rogha, agus ansin roghnaigh an deighilteoir a scarann do chuid sonraí comhcheangailte, féach an scáileán:
7. Ansin cliceáil Ok cnaipe, agus roghnaigh cill chun an toradh scoilte a chur sa bhosca dialóige popped amach, féach an scáileán:
8. Cliceáil OK, agus gheobhaidh tú an toradh de réir mar is gá duit. Féach an pictiúr:
Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!
Taispeántas: Déan cealla a thrasuí i gcolún amháin bunaithe ar luachanna uathúla le Kutools le haghaidh Excel
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
