Skip to main content

Conas colún a roinnt gach as a chéile in Excel?

scoilt doc gach as a chéile 1

Mar shampla, tá liosta fada sonraí agam, agus anois, ba mhaith liom an colún a roinnt ina dhá liosta go cothrom le gach ró eile mar a leanas an pictiúr a thaispeántar. An bhfuil aon bhealaí maithe ann chun déileáil leis an tasc seo in Excel?

Roinn colún gach as a chéile le Foirmlí

Roinn colún gach as a chéile le cód VBA

Roinn colún gach as a chéile le Kutools le haghaidh Excel


mboilgeog cheart gorm saighead Roinn colún gach as a chéile le Foirmlí

D’fhéadfadh na foirmlí seo a leanas cabhrú leat colún a roinnt go tapa ina dhá cholún de réir a chéile, déan mar a leanas:

1. Cuir an fhoirmle seo isteach i gcill bhán, C2, mar shampla, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), féach ar an scáileán :

scoilt doc gach as a chéile 2

2. Ansin tarraing an láimhseáil líonta síos go dtí go dtaispeántar na hearráidí sna cealla, féach an pictiúr:

scoilt doc gach as a chéile 3

3. Ansin cuir foirmle eile isteach i gcill D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2), agus tarraing an láimhseáil líonta síos go dtí na cealla go dtí go bhfeictear luachanna earráide, agus go bhfuil luachanna an cholúin roinnte ina dhá cholún gach as a chéile, féach an pictiúr:

scoilt doc gach as a chéile 4


mboilgeog cheart gorm saighead Roinn colún gach as a chéile le cód VBA

Má tá suim agat i gcód VBA, anseo, is féidir liom labhairt faoi chód chun an fhadhb seo a réiteach.

1. Coinnigh síos an ALT + F11 eochracha in Excel, agus osclaíonn sé an 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: Roinn colún ina dhá cholún gach as a chéile

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
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 roinnt a roghnú, féach an scáileán:

scoilt doc gach as a chéile 5

4. agus cliceáil OK, popped bosca pras eile chun ligean duit cill a roghnú chun an toradh a chur, féach an scáileán:

scoilt doc gach as a chéile 6

5. Ansin cliceáil OK, agus tá an colún roinnte ina dhá cholún ag gach ró eile. Féach an pictiúr:

scoilt doc gach as a chéile 7


mboilgeog cheart gorm saighead Roinn colún gach as a chéile le Kutools le haghaidh Excel

Más mian leat níos mó rudaí nua a fhoghlaim, is féidir liom uirlis chumhachtach a mholadh -Kutools le haghaidh Excel, Lena Raon Trasfhoirmigh fóntais, is féidir leat as a chéile nó as colún amháin a thiontú go raon cealla agus a mhalairt.

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 :( Kutools Íoslódáil saor in aisce do Excel Anois )

1. Roghnaigh na sonraí colúin is mian leat a roinnt ina dhá cholún de réir a chéile.

2. Ansin cliceáil Kutools > Raon > Raon Trasfhoirmigh, féach ar an scáileán:

3. Sa an Raon Trasfhoirmigh dialóg, roghnaigh Colún aonair le raon faoi ​​na Cineál a athrú, Ansin roghnaigh Luach seasta agus dul isteach 2 isteach sa bhosca sa Sraitheanna in aghaidh an taifead alt, féach an pictiúr:

scoilt doc gach as a chéile 9

4. Ansin cliceáil Ok cnaipe, agus popfaidh bosca pras amach le cur i gcuimhne duit cill a roghnú inar mian leat an toradh a aschur, féach an scáileán:

scoilt doc gach as a chéile 10

5. Cliceáil OK, roinneadh sonraí an liosta ina dhá cholún gach as a chéile.

Cliceáil chun níos mó eolais a fháil faoin bhfóntas Transform Range seo.

Kutools Íoslódáil saor in aisce do Excel Anois

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
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 ...

Tuairisc


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
How to do the opposite of this? Get two column info in one row ?
This comment was minimized by the moderator on the site
Hi, Jas,
To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
As a workaround, you can do the following: Using the above example, 1. Type "=a2" in c2 and "=a3" in d3. 2. Now select c2 through d3. 3. Drag the fill handle parallel to all the data. 4. Now delete cell a2 and shift cells up. 5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself. 6. Now you can simply sort any of the column alphabetically to bring all the data up.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations