Skip to main content

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?
colúin chairn doc ó chlé go deas 1

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

colúin chairn doc ó chlé go deas 2

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ú.
colúin chairn doc ó chlé go deas 3

4. cliceáil OK, roghnaigh cill chun an toradh a chur.
colúin chairn doc ó chlé go deas 4

5. cliceáil OK Críoch. Anois tá na colúin roghnaithe cruachta i gcolún amháin.
colúin chairn doc ó chlé go deas 5


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.
colúin chairn doc ó chlé go deas 6

2. Sa Transform Range dialóg, seiceáil Range to single row bosca seiceála, cliceáil Ok.
colúin chairn doc ó chlé go deas 7

3. Sa dialóg popping, roghnaigh cill chun an toradh a chur, cliceáil OK.
colúin chairn doc ó chlé go deas 8

Anois tá na colúin athraithe go dtí a chéile.
colúin chairn doc ó chlé go deas 9

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.
colúin chairn doc ó chlé go deas 10

Anois tá an tsraith aonair aistrithe go colún cruachta.
colún cruachta doc clé go deas 11

Uirlisí Táirgiúlachta Oifige is Fearr

Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

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 ...

cluaisín kte 201905


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á!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Does anyone know how to replace/hardcode the columns (not bring up the message box for selection)?So, set the XSRg to be something like: Set xSRg = Range("A1").CurrentRegion.Select(which does not work because of type mismatch)thanks
This comment was minimized by the moderator on the site
I will be eternally grateful to you. Thank you so much!
This comment was minimized by the moderator on the site
A Word cheat to do the same:
- copy all your rows and lines in Excel
- paste without into a Word doc
- ctrl + h (find and replace)
- copy a tabulation space between two rows
- paste into search bar
- replace by tabs by line breaks "^l"

All your cells are now in column in your Word doc.
Copy paste them into Excel: done!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations