Kako razdeliti dolg seznam v enake skupine v Excelu?

Če imate dolg seznam podatkov, ki jih je treba razdeliti v več enakih skupin, kot je prikazano na spodnjem posnetku zaslona, ​​kako se lahko v Excelu hitro in enostavno spoprimete s to nalogo?

Dolg seznam razdelite na več enakih skupin s kodo VBA

Dolg seznam razdelite na več enakih skupin s programom Kutools za Excel

Dolg seznam razdelite na več enakih skupin s kodo VBA

Razen kopiranja in lepljenja podatkov enega za drugim, vam lahko tudi naslednja koda VBA naredi uslugo, naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: dolg seznam razdelite na več enakih skupin

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. Nato pritisnite F5 tipko za zagon te kode in v izpuščenem polju izberite stolpec, ki ga želite razdeliti v več skupin, glejte posnetek zaslona:

4. in kliknite OK , nato v naslednjem pozivu izberite celico, v kateri želite poiskati rezultat, glejte posnetek zaslona:

5. Kliknite OKin v polje za poziv vnesite število celic, ki jih želite razdeliti na stolpec, glejte sliko zaslona:

6. Nazadnje kliknite OK za dokončanje kode in izbrani podatki s seznama so razdeljeni v več enakih skupin, kot potrebujete, glejte posnetek zaslona:

Dolg seznam razdelite na več enakih skupin s programom Kutools za Excel

Če ste namestili Kutools za Excel, Z njegovim Območje preoblikovanja funkcijo, lahko dolg seznam hitro razdelite na več stolpcev in vrstic, poleg tega pa lahko tudi več stolpcev združite v en dolg seznam.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Izberite dolg seznam, ki ga želite razdeliti, in kliknite Kutools > Območje > Območje preoblikovanja, glej posnetek zaslona:

2. v Območje preoblikovanja pogovorno okno, izberite En stolpec za obseg pod Vrsta preoblikovanja in nato preverite Fiksna vrednost in v polju določite število celic na vrstico, glejte posnetek zaslona:

3. Nato kliknite Okin izberite celico, v kateri želite poiskati rezultat v pozivnem polju, glejte posnetek zaslona:

4. In kliknite OK , so podatki na seznamu razdeljeni v več enakih skupin, kot jih potrebujete.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!