Conas liosta fada a roinnt ina ghrúpaí comhionanna in Excel?
Má tá liosta fada sonraí agat a bhí riachtanach a roinnt ina iliomad grúpaí comhionanna mar a thaispeántar an pictiúr a leanas, conas a d’fhéadfá déileáil leis an tasc seo go tapa agus go héasca in Excel?
Roinn liosta fada ina iliomad grúpaí comhionanna le cód VBA
Roinn liosta fada ina iliomad grúpaí comhionanna le Kutools for Excel
Roinn liosta fada ina iliomad grúpaí comhionanna le cód VBA
Seachas na sonraí a chóipeáil agus a ghreamú ceann ar cheann, is féidir leis an gcód VBA seo a leanas fabhar a thabhairt duit, déan na céimeanna seo a leanas le do thoil:
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: Roinn liosta fada ina iliomad grúpaí comhionanna
Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xOutArr As Variant
Dim I As Long, K As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
If I < 1 Then
MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
Exit Sub
End If
ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
For K = 0 To xRg.Rows.Count - 1
xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
Next
xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus sa bhosca popped out, roghnaigh an colún a theastaíonn uait a roinnt ina iliomad grúpaí, féach an scáileán:
4. agus cliceáil OK cnaipe, ansin roghnaigh cill inar mian leat an toradh a aimsiú sa bhosca pras seo a leanas, féach an scáileán:
5. Cliceáil OK, agus cuir isteach líon na gcealla a theastaíonn uait a roinnt in aghaidh an cholúin sa bhosca pras, féach an scáileán:
6. Ar deireadh, cliceáil OK chun an cód a chríochnú, agus roinneadh na sonraí liosta roghnaithe ina iliomad grúpaí comhionanna de réir mar a theastaíonn uait, féach an scáileán:
Roinn liosta fada ina iliomad grúpaí comhionanna le Kutools for Excel
Má tá tú suiteáilte agat Kutools le haghaidh Excel, Lena Raon Trasfhoirmigh gné, is féidir leat liosta fada a roinnt go tapa i gcolúin agus sraitheanna iolracha, thairis sin, is féidir leat colúin iolracha a chomhcheangal in aon liosta fada amháin.
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 liosta fada a theastaíonn uait a roinnt, agus ansin cliceáil Kutools > Raon > Raon Trasfhoirmigh, féach ar an scáileán:
2. Sa an Raon Trasfhoirmigh dialóg, roghnaigh Colún aonair le raon faoi na Cineál a athrú alt, agus ansin seiceáil Luach seasta agus sonraigh líon na gcealla in aghaidh a chéile sa bhosca, féach an scáileán:
3. Ansin cliceáil Ok, agus roghnaigh cill inar mian leat an toradh a aimsiú sa bhosca pras, féach an scáileán:
4. Agus cliceáil OK cnaipe, roinneadh na sonraí ar an liosta ina ngrúpaí comhionanna iomadúla de réir mar is gá duit.
Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!
Taispeántas: Roinn liosta fada ina iliomad grúpaí comhionanna le Kutools for 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á!