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

Hvordan dele data i flere regneark basert på kolonne i

If Excel? Du ønsker å dele data basert på kolonneverdi raskt og automatisk, er følgende VBA-kode et godt valg. Vennligst gjør som dette:
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window.
Sub parse_data () Dim lr Som LongDim ws As WorksheetDim vcol, jeg Som IntegerDim icol Som LongDim myarr Som VariantDim tittelen Som StringDim titlerow Som Integervcol = 1 Set ws = Sheets ("Ark1") lr = ws.Cells (ws.Rows.Count, vcol) END (xlUp) .Rowtitle = "A1: C1" titlerow = ws.Range (tittel) .Cells (1) .Rowicol = ws.Columns.Countws.Cells (1, icol) = "Unike" For i = 2 Slik lrOn Error Resume NextIf ws.Cells (i, vcol) < > "" Og Application.WorksheetFunction.Match (ws.Cells (i, vcol), ws.Columns (icol), 0) = 0 Thenws.Cells (ws.Rows.Count, icol) END (xlUp) .Offset (1 ) = ws.Cells (i, vcol) End IfNextmyarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))ws.Columns(icol).ClearFor i = 2 Slik UBound (myarr) ws.Range (tittel) .AutoFilter feltet: = vcol, Criteria1: = myarr (i) & "" Hvis det ikke evaluert ("= ISREF ('" & myarr (i) & "" A1) "!) ThenSheets.Add (etter: = Regneark (Worksheets.Count)) Name = myarr (i) &. "" ElseSheets (myarr (i) & "") .Kjør etter: = regneark (Worksheets.Count) End Ifws.Range ("A" & titlerow & ": En" & lr) .EntireRow.Copy Sheets (myarr (i) & "") .Range ("A1") Sheets (myarr (i) & "") .Columns.AutoFitNextws.AutoFilterMode = Falsews.ActivateEnd SubNote: I koden ovenfor:


vcol = 1, nummer 1 er kolonnenummeret som du ønsker å dele data basert på.

Sett ws = Sheets ("Ark1"), er Ark1 arket navn som du ønsker å anvende denne koden

title =. "A1: C1", A1:.. C1 er utvalget av tittelen
Alle av dem er variabler, kan du endre dem som trenger din
3. Deretter trykker F5 for å kjøre koden, blir alle data i det aktive regnearket delt inn i flere regneark i verdi kolonnen. Og de delte regneark er navngitt med de delte celle navn. Se skjermbilde:
Obs. Splitt regneark er plassert i enden av arbeidsboken hvor hovedarket er i

Split data i flere regneark basert på kolonnen med Kutools for Excel
Som et Excel nybegynner, er dette lenge VBA-kode litt vanskelig for oss, og de fleste av oss selv ikke vet hvordan du endrer koden som vårt behov
Her vil jeg presentere deg et multifunksjonelt verktøy -. Kutools for Excel , dens Split data verktøyet ikke bare kan hjelpe deg til å dele data i flere regneark basert på kolonnen, men også kan dele data med rader telle.
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 &​​gt; Split Data (eller Enterprise > Split Data), se skjermbilde:
tre. I Split data i flere regneark dialogboksen, må du:
1). Velg Spesifikk kolonne alternativ i Split basert på delen, og velg kolonneverdi som du ønsker å dele data basert på i nedtrekkslisten. (Hvis dataene har overskrifter og du ønsker å sette dem inn i hver nye split regneark, kan du sjekke Min data har overskrifter alternativet.)
2). Deretter kan du angi de delte regnearknavn, under New regneark navn avsnitt, angir regler regneark navn fra reglene nedtrekkslisten, kan du legge den prefiks eller suffiks for plate navn også.
3). Klikk på OK-knappen. Se skjermbilde:..
Nå dataene er delt inn i flere regneark i en ny arbeidsbok
Klikk for å vite mer om dette Split data funksjonen