Conas colúin a chruachadh ó chlé go deas i gcolún amháin in Excel?
Má cheaptar go bhfuil ilcholúin ann, is é an jab na colúin a chruachadh ó chlé go deas i gcolún amháin mar a thaispeántar thíos. Ach amháin na colúin a bhogadh de láimh ceann ar cheann, an bhfuil aon chleasanna ann chun é seo a réiteach in Excel?
Stack colúin ó chlé go deas go colún amháin le VBA
Stack colúin ó chlé go deas go colún amháin le Kutools le haghaidh Excel
Stack colúin ó chlé go deas go colún amháin le VBA
In Excel, níl aon fheidhm ionsuite ann chun an post seo a láimhseáil, ach, is féidir leis an gcód VBA cabhrú leat.
1. Brúigh Alt + F11 eochracha, ansin sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil chun modúl bán nua a chruthú.
2. Cóipeáil agus greamaigh thíos an cód leis an Modúil.
VBA: Stack colúin i gceann amháin
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3. Brúigh F5 eochair chun an cód a rith, tagann dialóg amach duit chun na colúin a dhéanfaidh tú a chruachadh i gceann a roghnú.
4. cliceáil OK, roghnaigh cill chun an toradh a chur.
5. cliceáil OK Críoch. Anois tá na colúin roghnaithe cruachta i gcolún amháin.
Stack colúin ó chlé go deas go colún amháin le Kutools le haghaidh Excel
Má tá tú Kutools le haghaidh Excel suiteáilte in Excel, is féidir leat an Transform Range fóntais chun an post seo a láimhseáil.
Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. |
Tar éis a shuiteáil Kutools for Excel, déan mar atá thíos le do thoil:Download Kutools Íoslódáil saor in aisce do Excel Anois!)
1. Roghnaigh na colúin is mian leat a chruachadh, cliceáil Kutools > Raon > Transform Range.
2. Sa Transform Range dialóg, seiceáil Range to single row bosca seiceála, cliceáil Ok.
3. Sa dialóg popping, roghnaigh cill chun an toradh a chur, cliceáil OK.
Anois tá na colúin athraithe go dtí a chéile.
4. Roghnaigh an tsraith aonair, brúigh Ctrl + C chun é a chóipeáil, agus cill eile a roghnú a chuirfidh an colún cruachta, cliceáil ar dheis chun roghnú Transpose(T) sa roghchlár comhthéacs.
Anois tá an tsraith aonair aistrithe go colún cruachta.
Raon trasuí
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á!