Hur delar jag upp en lång lista i lika stora grupper i Excel?
Om du har en lång lista med data som behövs för att delas upp i flera lika stora grupper som följande skärmdump visas, hur kan du hantera den här uppgiften snabbt och enkelt i Excel?
Dela upp en lång lista i flera lika grupper med VBA-kod
Dela upp en lång lista i flera lika grupper med Kutools för Excel
Dela upp en lång lista i flera lika grupper med VBA-kod
Med undantag för att kopiera och klistra in data en efter en, kan följande VBA-kod också göra dig en tjänst, gör med följande steg:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Dela en lång lista i flera lika stora grupper
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. Tryck sedan på F5 nyckel för att köra den här koden och välj den kolumn som du vill dela upp i flera grupper i den poppade rutan, se skärmdump:
4. och klicka OK välj sedan en cell där du vill hitta resultatet i följande rutan, se skärmdump:
5. Klicka OK, och ange antalet celler som du vill dela upp per kolumn i snabbrutan, se skärmdump:
6. Slutligen klickar du på OK för att avsluta koden och den valda listdata har delats upp i flera lika stora grupper som du behöver, se skärmdump:
Dela upp en lång lista i flera lika grupper med Kutools för Excel
Om du har installerat Kutools för Excel, med dess Transformera intervall funktion kan du snabbt dela upp en lång lista i flera kolumner och rader, dessutom kan du också kombinera flera kolumner i en lång lista.
| Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
När du har installerat Kutools för Excel, gör så här:
1. Välj den långa lista som du vill dela upp och klicka sedan på Kutools > Mätområde > Transformera intervall, se skärmdump:
2. I Transformera intervall dialogrutan väljer du Enstaka kolumn för intervall under Transformera typ avsnittet och kontrollera sedan Fast värde och ange antalet celler per rad i rutan, se skärmdump:
3. Klicka sedan Ok, och välj en cell där du vill hitta resultatet i snabbrutan, se skärmdump:
4. Och klicka OK knappen har data i listan delats upp i flera lika stora grupper som du behöver.
Ladda ner och testa gratis Kutools för Excel nu!
Demo: Dela upp en lång lista i flera lika grupper med Kutools för Excel
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
