Splits gegevens in meerdere werkbladen op basis van het aantal rijen in Excel
Door een groot gegevensbereik efficiënt te verdelen in meerdere Excel-werkbladen op basis van een specifiek aantal rijen, kan het gegevensbeheer worden gestroomlijnd. Als u een gegevensset bijvoorbeeld elke vijf rijen in meerdere werkbladen opsplitst, kan deze beter beheersbaar en georganiseerd worden. Deze handleiding biedt twee praktische methoden om deze taak snel en gemakkelijk uit te voeren.
Gegevens splitsen in meerdere werkbladen op rijen tellen met VBA-code
Splits gegevens in meerdere werkbladen door rijen te tellen met Kutools voor Excel
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 in werkbladen splitsen op basis van het aantal rijen in Excel
Sub Splitdatabyrows()
'Updated by Extendoffice
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (xIER - xRow.Row + 1) < SplitRow Then
resizeCount = (xIER - xRow.Row + 1)
End If
xRow.Resize(resizeCount).Copy
Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
If xIER > (xRow.Row + SplitRow - 1) Then
xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
ElseIf xIER = xRow.Row Then
xWs.Name = xRow.Row
Else
xWs.Name = xRow.Row & " - " & xIER
End If
Application.ActiveSheet.Range("A1").PasteSpecial
Set xNTRg = Application.ActiveSheet.Range("A1")
xTRg.Copy
xNTRg.Insert
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Druk vervolgens op F5 key, selecteer in het pop-upvenster de titelrij, zie screenshot:
4. Dan klikken OK, en selecteer in het tweede promptvenster het gegevensbereik dat u wilt splitsen op aantal rijen, zie screenshot:
5. Blijf klikken OK knop, voer in het derde promptvenster het aantal rijen in waarmee u wilt splitsen, zie screenshot:
6. Dan klikken OK knop, de gegevens zijn opgesplitst in meerdere werkbladen op basis van het aantal rijen, zie screenshot:
Splits gegevens in meerdere werkbladen door rijen te tellen met Kutools voor Excel
Als u denkt dat de VBA-code complex is, Kutools for Excel biedt een snelle en intuïtieve oplossing om het probleem van het splitsen van gegevens efficiënt aan te pakken. Dit Gegevens splitsen Deze functie vereenvoudigt het bedieningsproces, waardoor gebruikers van elk vaardigheidsniveau grote datasets eenvoudig in meerdere werkbladen kunnen verdelen zonder dat diepgaande programmeerkennis nodig is, waardoor effectief gegevensbeheer wordt vergemakkelijkt.
Als je hebt geïnstalleerd Kutools for Excelgaat u als volgt te werk:
1. Selecteer het gegevensbereik dat u wilt splitsen. Klik vervolgens op Koetools Plus > Gegevens splitsen, zie screenshot:
3. In de Gegevens splitsen in meerdere werkbladen dialoog venster:
- kies Vaste rijen oppompen 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, vinkt u dit aan Mijn gegevens hebben kopteksten keuze. (Tip: u kunt het aantal herderrijen invoeren op basis van uw gegevens.)
- 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 Toevoeging ook voor de bladnamen.
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:
Gerelateerde artikelen:
- Splits gegevens in meerdere werkbladen op basis van kolom
- Stel dat u een werkblad heeft met enorme rijen gegevens, en nu moet u de gegevens opsplitsen in meerdere werkbladen op basis van de kolom Naam (zie volgende schermafbeelding), en de namen worden willekeurig ingevoerd. Misschien kunt u ze eerst sorteren en ze vervolgens één voor één kopiëren en in andere nieuwe werkbladen plakken. Maar dit vereist uw geduld om herhaaldelijk te kopiëren en plakken. Vandaag zal ik het hebben over enkele snelle trucs om deze taak op te lossen.
- Combineer dubbele rijen en tel de waarden op in Excel
- In Excel is het een gebruikelijk scenario om een gegevensset met dubbele vermeldingen tegen te komen. Vaak bevindt u zich misschien in een reeks gegevens waarbij de belangrijkste uitdaging is om deze dubbele rijen efficiënt te combineren en tegelijkertijd de waarden in een overeenkomstige kolom op te tellen, zoals in de onderstaande schermafbeelding. In deze context zullen we dieper ingaan op verschillende praktische methoden die u kunnen helpen dubbele gegevens te consolideren en de bijbehorende waarden samen te voegen, waardoor zowel de duidelijkheid als de bruikbaarheid van uw Excel-werkmappen worden vergroot.
- Voeg twee of meer tabellen samen tot één op basis van sleutelkolommen
- Stel dat u drie tabellen in een werkmap heeft, nu wilt u deze tabellen samenvoegen tot één tabel op basis van de overeenkomstige sleutelkolommen om het resultaat te krijgen zoals onderstaand screenshot. Dit kan voor de meesten van ons een lastige taak zijn, maar maak je geen zorgen, in dit artikel zal ik enkele methoden introduceren om dit probleem op te lossen.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!