Hvordan opdeles en lang liste i lige store grupper i Excel?
Hvis du har en lang liste med data, der er nødvendige for at blive delt i flere lige store grupper som følgende skærmbillede vist, hvordan kan du håndtere denne opgave hurtigt og nemt i Excel?
Opdel en lang liste i flere lige store grupper med VBA-kode
Del en lang liste i flere lige store grupper med Kutools til Excel
Opdel en lang liste i flere lige store grupper med VBA-kode
Bortset fra at kopiere og indsætte dataene en efter en, kan følgende VBA-kode også gøre dig en tjeneste, skal du gøre med følgende trin:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Del en lang liste i flere lige store 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. Tryk derefter på F5 nøgle til at køre denne kode, og i den poppede boks skal du vælge den kolonne, du vil opdele i flere grupper, se skærmbillede:
4. og klik OK knap, og vælg derefter en celle, hvor du vil finde resultatet i følgende promptboks, se skærmbillede:
5. Klik OK, og indtast venligst antallet af celler, som du vil opdele pr. kolonne i promptfeltet, se skærmbillede:
6. Endelig skal du klikke på OK for at afslutte koden, og de valgte listedata er opdelt i flere lige store grupper, som du har brug for, se skærmbillede:
Del en lang liste i flere lige store grupper med Kutools til Excel
Hvis du har installeret Kutools til Excel, Med Transformér rækkevidde funktion, kan du hurtigt opdele en lang liste i flere kolonner og rækker. Desuden kan du også kombinere flere kolonner i en lang liste.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excelskal du gøre som følger:
1. Vælg den lange liste, du vil opdele, og klik derefter på Kutools > Range > Transformér rækkevidde, se skærmbillede:
2. I Transformér rækkevidde dialogboksen, vælg En kolonne til rækkevidde under Transformeringstype sektion, og kontroller derefter Fast værdi og angiv antallet af celler pr. række i feltet, se skærmbillede:
3. Klik derefter på Ok, og vælg en celle, hvor du vil finde resultatet i promptboksen, se skærmbillede:
4. Og klik OK knappen, er dataene på listen opdelt i flere lige store grupper, som du har brug for.
Download og gratis prøveversion Kutools til Excel nu!
Demo: Del en lang liste i flere lige store grupper med Kutools til Excel
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!