Hoe gegevens in meerdere werkbladen op te splitsen in rijen tellen in Excel?
Ik heb bijvoorbeeld een reeks gegevenslijsten, nu wil ik het opsplitsen in meerdere werkbladen door het aantal rijen, in dit voorbeeld zal ik het opsplitsen in elke 5 rijen (zie 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 voor elkaar te krijgen.
 |
 |
 |
 |
||
 |
||
 |
Gegevens splitsen in meerdere werkbladen op rijen tellen met VBA-code
Splits gegevens in meerdere werkbladen door rijen te tellen met Kutools voor Excel
- Hergebruik alles: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en gebruik ze in de toekomst snel opnieuw.
- Meer dan 20 tekstfuncties: Nummer uit tekststring halen; Extract of verwijder een deel van teksten; Converteer cijfers en valuta's naar Engelse woorden.
- Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Voeg dubbele rijen en som samen.
- Hulpmiddelen splitsen: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen.
- Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Stuur gepersonaliseerde e-mails in bulk naar meerdere ontvangers.
- Superfilter: Maak geavanceerde filterschema's en pas deze toe op elk blad Sorteer per week, dag, frequentie en meer; Filteren door vetgedrukt, formules, commentaar ...
- Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig te implementeren in uw onderneming of organisatie.
Gegevens splitsen in meerdere werkbladen op rijen tellen met VBA-code
De volgende VBA-code kan u helpen bij het splitsen van de rijen in meerdere werkbladen op basis van het aantal rijen, doe dit als volgt:
1. Houd de ALT + F11 sleutel om het te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.
VBA: gegevens splitsen in bladen 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 selecteren om te splitsen, en klik vervolgens op OK, en een ander dialoogvenster waarin u het aantal rijen kunt specificeren. Zie screenshot:
 |
|
 |
4. Klik OK, en het bereik wordt opgesplitst in meerdere bladen door het aantal rijen.
Opmerking:: De gesplitste werkbladen worden aan de achterkant van het hoofdwerkblad geplaatst.
Splits gegevens in meerdere werkbladen door rijen te tellen met Kutools voor Excel
De bovenstaande code kan de gegevens alleen splitsen op basis van het opgegeven aantal rijen, en het zal niet de titel voor elke werkbladgegevens toevoegen als uw gegevens de titel hebben.
Maar Kutools for Excel's Gegevens splitsen, kunt u niet alleen de kopteksten voor elke werkbladgegevens invoegen, maar ook de nieuwe namen van gesplitste werkbladen specificeren.
Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now
Als je Kutools voor Excel hebt geïnstalleerd, doe dan het volgende:
1. Selecteer het gegevensbereik dat u wilt splitsen.
2. Klikken Enterprise > Werkbladhulpmiddelen > Gegevens splitsen (of Enterprise > Gegevens splitsen ), zie screenshot:
3. In de Gegevens splitsen in meerdere werkbladen dialoog venster:
- kies Vaste rijen van Splitsen op basis van optie en voer het aantal rijen in dat u voor elk werkblad wilt splitsen. (Als uw gegevens kopteksten hebben en u deze in elk nieuw gesplitst werkblad wilt invoegen, controleer dan Mijn gegevens hebben kopteksten keuze.)
- Vervolgens kunt u de namen van het gesplitste werkblad specificeren onder de Nieuwe werkbladnaam sectie, selecteert u de regels voor werkbladnamen uit het Reglement vervolgkeuzelijst, kunt u de Voorvoegsel or Achtervoegsel ook voor de bladnamen. Zie screenshot:
4. Nadat u de instellingen heeft opgegeven, klikt u op OK, en de geselecteerde gegevens zijn om de 5 rijen opgesplitst in meerdere werkbladen van een nieuwe werkmap. En de kopteksten worden voor elk nieuw werkblad ingevoegd. Zie screenshot:
Klik om meer te weten over deze Split Data-functie.
Gerelateerd artikel:
Hoe gegevens opsplitsen in meerdere werkbladen op basis van kolom in Excel?
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
