In diesem Artikel erstellen wir ein Makro, um Daten nach einer bestimmten Anzahl von Zeilen aufzuteilen.
Wir haben Rohdaten im Blatt „RawData“. Wir möchten diese Daten in mehrere Blätter aufteilen.
Bevor wir das Makro ausführen, müssen wir die Anzahl der Zeilen angeben, die in jedem Blatt erforderlich sind.
Codeerklärung
CntRows = Cint(Sheets("Main").TextBox1.Value)
Der obige Code wird verwendet, um die Anzahl der Blätter zu ermitteln, die in einem Blatt erforderlich sind.
LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
Der obige Code wird verwendet, um die Zeilennummer der letzten Zelle zu erhalten.
Sheets.Add after:=Sheets(Sheets.Count)
Der obige Code wird verwendet, um ein neues Blatt nach dem letzten Blatt hinzuzufügen.
.Range("A" & n).Resize(CntRows, LastColumn).Copy Range("A1")
Der obige Code wird verwendet, um die angegebene Anzahl von Zeilen in ein neues Arbeitsblatt zu kopieren.
Bitte folgen Sie unten für den Code
Option Explicit Sub SplitDataToMultipleSheets() 'Variablen deklarieren Dim LastRow As Long, n As Long, CntRows As Long Dim LastColumn As Integer 'Zählung der in einem Blatt benötigten Zeilen abrufen CntRows = CInt(Sheets("Main").TextBox1.Value ) 'Bildschirmaktualisierungen deaktivieren Application.ScreenUpdating = False With Sheets("RawData") 'Zeilennummer und Spaltennummer der letzten Zelle abrufen LastRow = .Range("A" & .Rows.Count).End(xlUp).Row LastColumn = .Range("A1").SpecialCells(xlCellTypeLastCell).Column 'Daten im Blatt durchschleifen For n = 1 To LastRow Step CntRows 'Neues Arbeitsblatt hinzufügen Sheets.Add after:=Sheets(Sheets.Count) 'Daten in neue kopieren Arbeitsblatt .Range("A" & n).Resize(CntRows, LastColumn).Copy Range("A1") Weiter n .Aktiviere Ende mit 'Bildschirmaktualisierungen aktivieren Application.ScreenUpdating = True End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site
