Come dividere un elenco lungo in gruppi uguali in Excel?

Se hai un elenco lungo di dati che deve essere diviso in più gruppi uguali come mostrato nello screenshot seguente, come potresti gestire rapidamente e facilmente questo compito in Excel?

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

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

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

A parte copiare e incollare i dati uno per uno, anche il seguente codice VBA può esserti d'aiuto, segui i passaggi seguenti:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic per Applicazioni.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Dividi un elenco lungo 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 premi il tasto F5 per eseguire questo codice, e nella finestra pop-up, seleziona la colonna che desideri dividere in più gruppi, vedi screenshot:

4. E clicca sul pulsante OK, quindi seleziona una cella dove vuoi posizionare il risultato nella seguente finestra di dialogo, vedi screenshot:

5. Clicca su OK, e inserisci il numero di celle che desideri dividere per colonna nella finestra di dialogo, vedi screenshot:

6. Infine, clicca su OK per terminare il codice, e l'elenco selezionato è stato diviso in più gruppi uguali come necessario, vedi screenshot:

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

Se hai installato Kutools per Excel, con la sua funzione Trasforma Intervallo, puoi rapidamente dividere un elenco lungo in più colonne e righe; inoltre, puoi anche combinare più colonne in un unico elenco lungo.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Seleziona l'elenco lungo che desideri dividere, e poi clicca su Kutools > Intervallo > Trasforma Intervallo, vedi screenshot:

2. Nella finestra di dialogo Trasforma Intervallo, seleziona Singola Colonna a Intervallo sotto la sezione Tipo di Trasformazione, e poi spunta Valore Fisso e specifica il numero di celle per riga nella casella, vedi screenshot:

3. Quindi clicca su Ok, e seleziona una cella dove vuoi posizionare il risultato nella finestra di dialogo, vedi screenshot:

4. E clicca sul pulsante OK, i dati nell'elenco sono stati divisi in più gruppi uguali come necessario.

Scarica e prova gratuitamente Kutools per Excel Ora!