Hoe maak je nieuwe bladen voor elke rij in Excel?
Stel dat je een scoretabel hebt met alle studentennamen in kolom A. Nu wil je nieuwe bladen maken op basis van deze namen in kolom A, en maak per blad unieke leerlinggegevens. Of maak gewoon een nieuw blad voor elke rij in de tabel zonder rekening te houden met de namen in kolom A. In deze vedio krijgt u methoden om dit te bereiken.
Maak nieuwe bladen voor elke rij met VBA-code
Maak nieuwe bladen voor elke rij met het hulpprogramma Gegevens splitsen van Kutools for Excel
Maak nieuwe bladen voor elke rij met VBA-code
Met de volgende codes kunt u een nieuw blad maken op basis van kolomwaarden, of gewoon nieuwe bladen maken voor elke rij in Excel.
1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. En plak vervolgens de volgende code in het Module venster.
VBA-code: maak een nieuw blad voor elke rij op basis van de kolom
Sub parse_data()
'Update by Extendoffice 2018/3/2
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Set xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xTRrow = xSht.Range(xTitle).Cells(1).Row
For I = 2 To xRCount
Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
Next
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCol.Count
Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Nothing
Set xNSht = Worksheets(CStr(xCol.Item(I)))
If xNSht Is Nothing Then
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End SubOpmerking:: A1: C1 is het titelbereik van uw tafel. U kunt het wijzigen op basis van uw behoeften.
3. druk op F5 sleutel om de code uit te voeren, waarna nieuwe werkbladen worden gemaakt nadat alle werkbladen van de huidige werkmap zijn gemaakt, zoals onder screenshot:
Als u voor elke rij direct nieuwe bladen wilt maken zonder rekening te houden met de kolomwaarde, kunt u de volgende code gebruiken.
VBA-code: maak direct een nieuw blad voor elke rij
Sub RowToSheet()
Dim xRow As Long
Dim I As Long
With ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
.Rows(I).Copy Sheets("Row " & I).Range("A1")
Next I
End With
End SubNadat de code is uitgevoerd, wordt elke rij in het actieve werkblad in een nieuw werkblad geplaatst.
Opmerking:: De koprij wordt ook in een nieuw blad geplaatst met deze VBA-code.
Maak nieuwe bladen voor elke rij met het hulpprogramma Gegevens splitsen van Kutools for Excel
In feite is de bovenstaande methode ingewikkeld en moeilijk te begrijpen. In deze sectie stellen we u de Gegevens splitsen nut van Kutools for Excel.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. Selecteer de tabel die u nodig heeft om nieuwe bladen te maken en klik op Koetools Plus> Gegevens spugen. Zie screenshot:
2. In de Gegevens splitsen in meerdere werkbladen dialoogvenster, doe dan als volgt.
A. Voor het maken van nieuwe bladen op basis van de kolomwaarde:
B. Voor het direct aanmaken van nieuwe bladen voor elke rij:
er wordt een nieuwe werkmap gemaakt met alle nieuwe bladen erin. Zie onderstaande screenshots.
Nieuwe bladen maken voor elke rij op basis van de kolomwaarde:
Een nieuw blad maken voor elke rij zonder rekening te houden met de kolomwaarde:
Als u een gratis proefperiode wilt hebben (30-dag) van dit hulpprogramma, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Maak nieuwe bladen voor elke rij met het hulpprogramma Gegevens splitsen van Kutools for Excel
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for 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 Tab 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!
