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.
| Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
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!
Demo: dividi un lungo elenco in più gruppi uguali con Kutools per Excel
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
