Come dividere un lungo elenco in gruppi uguali in Excel?

Se hai un lungo elenco di dati che devono essere suddivisi in più gruppi uguali come mostrato nella seguente schermata, come potresti gestire questa attività rapidamente e facilmente in Excel?

Dividi un lungo elenco in più gruppi uguali con codice VBA

Dividi un lungo elenco in più gruppi uguali con Kutools per Excel

Dividi un lungo elenco in più gruppi uguali con codice VBA

Ad eccezione di copiare e incollare i dati uno per uno, anche il seguente codice VBA può farti un favore, ti preghiamo di eseguire i seguenti passaggi:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: dividi un lungo elenco in più gruppi uguali

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. Quindi premere F5 chiave per eseguire questo codice e nella casella spuntata, selezionare la colonna che si desidera dividere in più gruppi, vedere screenshot:

4. E fare clic su OK pulsante, quindi selezionare una cella in cui si desidera individuare il risultato nella seguente finestra di messaggio, vedere screenshot:

5. Clic OKe inserisci il numero di celle che desideri dividere per colonna nella casella del messaggio, vedi screenshot:

6. Infine, fai clic OK per completare il codice ei dati dell'elenco selezionato sono stati suddivisi in più gruppi uguali di cui hai bisogno, vedi screenshot:

Dividi un lungo elenco in più gruppi uguali con Kutools per Excel

Se hai installato Kutools for Excel, Con la sua Trasforma intervallo caratteristica, puoi dividere rapidamente un lungo elenco in più colonne e righe, inoltre, puoi anche combinare più colonne in un lungo elenco.

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Selezionare l'elenco lungo che si desidera dividere, quindi fare clic su Kutools > Escursione > Trasforma intervallo, vedi screenshot:

2. Nel Trasforma intervallo finestra di dialogo, selezionare Singola colonna nell'intervallo sotto il Tipo di trasformazione sezione, quindi controlla Valore fisso e specifica il numero di celle per riga nella casella, vedi screenshot:

3. Quindi fare clic Oke seleziona una cella in cui desideri individuare il risultato nella finestra del messaggio, vedi screenshot:

4. E clicca OK pulsante, i dati nell'elenco sono stati suddivisi in più gruppi uguali di cui hai bisogno.

Scarica e prova gratuitamente Kutools per Excel ora!