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!
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in