Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako razdeliti dolg seznam v enake skupine v Excelu?

doc split seznam skupin 4

Če imate dolg seznam podatkov, ki jih je treba razdeliti na več enakih skupin, kot je prikazano na zaslonu, kako lahko hitro in enostavno obravnavate to nalogo v Excelu?

Razdeli dolg seznam v več enakih skupin s kodo VBA

Razdelite dolg seznam v več enakih skupin z Kutools za Excel


Razdelite enega stolpca ali vrstice v več enakih skupin:

z Kutools za ExcelJe Transformski obseg funkcijo, lahko hitro pretvorite niz celic v eno vrstico ali stolpec, lahko tudi pretvorite eno vrstico ali stolpec v obseg celic.

doc split seznam skupin 9

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!



Razen kopiranja in lepljenja podatkov enega po enega, vam lahko naredi tudi naslednjo kodo VBA:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: Razdeli dolg seznam v več enakih skupin

Sub SplitIntoCellsPerColumn()
'updatebyExtendoffice 20160225
    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. Nato pritisnite F5 Če želite zagnati to kodo in v pop-out polje, izberite stolpec, ki ga želite razdeliti v več skupin, glejte sliko zaslona:

doc split seznam skupin 1

4. in kliknite OK nato izberite celico, v kateri želite poiskati rezultat v naslednjem pozivnem oknu, glejte sliko zaslona:

doc split seznam skupin 2

5. Kliknite OKin vnesite število celic, ki jih želite razdeliti na stolpec v pozivnem polju, si oglejte posnetek zaslona:

doc split seznam skupin 3

6. Nazadnje kliknite OK dokončati kodo in izbrani podatki seznama so razdeljeni v več enakih skupin, kot jih potrebujete, glejte sliko zaslona:

doc split seznam skupin 4


Če ste namestili Kutools za Excel, Z njegovim Transformski obseg funkcijo, lahko hitro razdelite dolg seznam v več stolpcev in vrstic, poleg tega pa lahko združite več stolpcev na en dolg seznam.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, storite naslednje:

1. Izberite dolg seznam, ki ga želite razdeliti, in nato kliknite Kutools > Območje > Transformski obseg, si oglejte sliko zaslona:

doc split seznam skupin 6

2. v Transformski obseg pogovorno okno, izberite Enolični stolpec v obsegu pod Vrsta preoblikovanja in nato preverite Fiksna vrednost in določite število celic na vrstico v polju, si oglejte sliko zaslona:

doc split seznam skupin 7

3. Nato kliknite Okin izberite celico, v kateri želite poiskati rezultat v pozivnem polju, si oglejte sliko zaslona:

doc split seznam skupin 8

4. In kliknite OK gumb, so podatki na seznamu razdeljeni v več enakih skupin, kot jih potrebujete.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    attom93 · 2 months ago
    I copied the code and Excel 365 says syntax error.
  • To post as a guest, your comment is unpublished.
    LM · 1 years ago
    This comes in very handy! One question: In the VBA code how can I transpose the output? So instead of xRg.Rows.Count / I = number of colums output, the output is generated as xRg.Rows.Count / I = number of rows output with I being the number of columns per row.