Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe gegevens in meerdere werkbladen op rijen te splitsen, telt in Excel?

Ik heb bijvoorbeeld een reeks gegevenslijsten, nu wil ik het splitsen in meerdere werkbladen door het aantal rijen, in dit voorbeeld zal ik het splitsen door elke 5-rij (zie de volgende schermafbeeldingen). Zijn er manieren om ons te helpen dit probleem snel op te lossen? Hier zal ik twee trucs voor je introduceren om het gemakkelijk te krijgen.


doc-split-data per rows1


-2



doc-split-data per rows2
doc-split-data per rows3
doc-split-data per rows4
doc-split-data per rows5

Gegevens splitsen in meerdere werkbladen per rij tellen met VBA-code

Gegevens splitsen in meerdere werkbladen per rij tellen met Kutools voor Excel


pijl blauwe rechterbel Gegevens splitsen in meerdere werkbladen per rij tellen met VBA-code


Met de volgende VBA-code kunt u de rijen in rijen splitsen op basis van het aantal rijen. Ga hiervoor als volgt te werk:

1. Houd de toets ingedrukt ALT + F11 sleutel om het te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in het modulevenster.

VBA: gegevens in rijen splitsen op rijen tellen in Excel.

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
    xRow.Resize(resizeCount).Copy
    Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op F5 toets om de code uit te voeren en er verschijnt een dialoogvenster om een ​​bereik te splitsen en klik vervolgens op OKen een andere dialoog voor u om het aantal rijen op te geven. Zie screenshot:

4. Klik op OKen het bereik wordt opgesplitst in meerdere bladen door het aantal rijen.

Notes: De gesplitste werkbladen worden achter in het hoofdwerkblad geplaatst.


pijl blauwe rechterbel Gegevens splitsen in meerdere werkbladen per rij tellen met Kutools voor Excel

De bovenstaande code kan de gegevens alleen splitsen op basis van het opgegeven aantal rijen en het voegt geen titel toe voor elke werkbladgegevens als uw gegevens de titel hebben.

Maar Kutools for Excel's Gegevens splitsen, u kunt niet alleen de kopteksten invoegen voor elke werkbladgegevens, maar ook de nieuwe gesplitste werkbladnamen opgeven.

Kutools for Excel bevat meer dan handige Excel-gereedschappen van 300. Gratis om te proberen zonder beperking in 30-dagen. Get it Now

Als u Kutools voor Excel hebt geïnstalleerd, doet u het volgende:

1. Selecteer het gegevensbereik dat u wilt splitsen.

2. Klikken Enterprise > Worksheet Tools > Gegevens splitsen (of Enterprise > Gegevens splitsen ), zie screenshot:

doc-split-data per rows6

3. In de Gegevens splitsen in meerdere werkbladen dialoog venster:

  • kiezen Vaste rijen vanaf Splitsen op basis van optie en voer het aantal rijen in dat u wilt splitsen voor elke werkblad. (Als uw gegevens kopteksten bevatten en u deze in elk nieuw gesplitst werkblad wilt invoegen, vinkt u dit aan Mijn gegevens hebben headers keuze.)
  • Vervolgens kunt u de gesplitste werkbladnamen opgeven onder de Naam nieuwe werkbladen sectie, selecteer de werkbladnamenregels uit de Reglement vervolgkeuzelijst, kunt u de Voorvoegsel or Achtervoegsel ook voor de bladnamen. Zie screenshot:

doc-split-data per rows7

4. Nadat u de instellingen hebt opgegeven, klikt u op OKen de geselecteerde gegevens zijn opgesplitst in meerdere werkbladen van een nieuwe werkmap door elke 5-rij. En de headers worden ingevoegd voor elk nieuw werkblad. Zie screenshot:

doc-split-data per rows8

Klik om meer te weten over deze functie Splitsen.

Gerelateerd artikel:

Hoe gegevens in meerdere werkbladen te splitsen op basis van kolom in Excel?



Aanbevolen productiviteitstools

Office Tab

gouden ster1 Breng handige tabbladen naar Excel en andere Office-software, net zoals Chrome, Firefox en nieuwe Internet Explorer.

Kutools for Excel

gouden ster1 Verbazingwekkend! Verhoog uw productiviteit in 5 minuten. Heb geen speciale vaardigheden nodig, bespaar elke dag twee uur!

gouden ster1 300 Nieuwe functies voor Excel, maak Excel veel gemakkelijk en krachtig:

  • Cel / rijen / kolommen samenvoegen zonder gegevens te verliezen.
  • Combineer en consolideer meerdere bladen en werkmappen.
  • Bereiken vergelijken, meerdere bereiken kopiëren, tekst converteren naar datum, eenheid en valuta omrekenen.
  • Count by Colors, paging-subtotalen, geavanceerde sortering en superfilter,
  • Meer Selecteren / Invoegen / Wissen / Tekst / Formaat / Link / Commentaar / Werkmappen / Werkbladen Hulpmiddelen ...

Schermopname van Kutools voor Excel

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.
    Max · 10 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?