1. Location:
  2. / Computer learning >> Datamaskin læring >> Kontor-Programvare >> Microsoft excel >> excel Komplekset >>

Hvordan dele data i flere regneark med rader teller i

The Excel følgende VBA-kode kan hjelpe deg med å dele rader i flere regneark med rader telle, gjør du følgende:?
1. Hold nede ALT + F11-tasten for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA:.. Split data til ark av rader teller i Excel
Sub SplitData () 'Updateby20140617Dim WorkRng Som RangeDim xRow Som RangeDim SplitRow Som IntegerDim xWs Som WorksheetOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) SplitRow = Application.InputBox ("Split Row Num", xTitleId, 5, Type: = 1) Sett xWs = WorkRng.ParentSet xRow = WorkRng.Rows (1) Application.ScreenUpdating = FalseFor i = 1 Til WorkRng.Rows.Count Step SplitRow resizeCount = SplitRow Hvis (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Så resizeCount = WorkRng.Rows.Count - xRow.Row + 1 xRow.Resize (resizeCount) .Copy Application.Worksheets.Add etter: = Application.Worksheets (Application.Worksheets.Count) Application.ActiveSheet.Range ("A1" ) .PasteSpecial Set xRow = xRow.Offset (SplitRow) NextApplication.CutCopyMode = FalseApplication.ScreenUpdating = TrueEnd Sub
3. Trykk F5 for å kjøre koden, og en dialog spretter ut for å velge et område å splitte , og klikk deretter OK, og en annen dialog for deg å spesifisere radene telle. Se skjermbilde:
4. Klikk OK, og utvalget er delt inn i flere ark av radene telle
Merk:.. De delte regneark er plassert på baksiden av hovedarket

Split data inn flere regneark med rader telle med Kutools for Excel
ovenfor koden kan bare dele data med de angitte rader teller, og det vil ikke legge til tittelen for hvert regneark data hvis data har tittelen.
Men med Kutools for Excel Split data, du kan ikke bare sette inn overskrifter for hver regnearkdata, men også kan angi nye split regnearknavnene.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. Få den nå
Hvis du har installert Kutools for Excel, kan du gjøre som følger:
1. Velg dataområdet som du ønsker å dele.
2. Klikk Enterprise > Regneark Verktøy > Split Data (eller Enterprise > Split Data), se skjermbilde:
tre. I Split data i flere regneark dialogboksen:

Velg Faste rader fra Split basert på alternativet, og angi antall rader telle som du vil dele for hver regneark. (Hvis dataene har overskrifter og du ønsker å sette dem inn i hver nye split regneark, kan du sjekke Min data har overskrifter alternativet.)
  • Deretter kan du angi split regnearknavn, under New regneark navn, velg reglene regneark navn fra reglene nedtrekkslisten, kan du legge den prefiks eller suffiks for plate navn også. Se skjermbilde:
    fire. Etter angir innstillingene, og klikk deretter på OK, og det valgte data har blitt delt inn i flere regneark i en ny arbeidsbok ved hver 5 rader. Og hoder settes inn for hver nye regnearket. Se skjermbilde.
    Klikk for å vite mer om dette Split data funksjonen