Combineer eenvoudig meerdere werkbladen / werkmappen in één werkblad / werkmap

Met de volgende VBA-code kunt u eenvoudig een lijst maken van de opgegeven cellen op meerdere werkbladen. U kunt het volgende doen:

Stap 1: Selecteer de opgegeven cel waaruit u uw lijst gaat maken. In ons geval selecteren we de Cell E6.

Stap 2: druk op anders + F11 toetsen tegelijkertijd om het venster Microsoft Visual Basic for Applications te openen, klikt u op Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA: maak een lijst van dezelfde cellen op meerdere bladen

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Stap 3: druk op F5 toets of klik op de lopen knop om deze VBA uit te voeren.

Vervolgens worden alle waarden uit de opgegeven cel op alle werkbladen gekopieerd naar een nieuw werkblad met de naam KutoolsforExcel. Zie screenshot:

Deze VBA vult de lijst in een nieuw werkblad en de waarden in de lijst zijn statisch en veranderen niet met de oorspronkelijke waarden.

Soms wilt u de lijst echter binnen het opgegeven bereik vullen en vereisen dat de lijstwaarden altijd overeenkomen met de originele waarden in de opgegeven cellen. Om aan deze behoeften te voldoen, moet u de volgende methode proberen.

Deze methode introduceert Kutools for Excel's Dynamisch verwijzen naar werkbladen hulpprogramma om een ​​dynamische lijst te maken van dezelfde cellen over meerdere werkbladen.

Stap 1: Selecteer het bereik waar u de dynamische lijst wilt vullen en klik op het Kutools > Meer > Dynamisch verwijzen naar werkbladen.

Stap 2: In het dialoogvenster Fill Worksheets References openen,

(1) Klik op het Vul bestelling box en selecteer een vullingstype uit de vervolgkeuzelijst. In ons geval selecteren we Vul verticaal cel na cel;

(2) In de Vul formule geef het celadres op waaruit u een dynamische lijst wilt maken en klik vervolgens op het Slot  om de formule te vergrendelen.

(3) Klik op het Vul bereik knop.

Nu ziet u dat waarden in de opgegeven cellen op alle werkbladen zijn ingevuld in het opgegeven bereik, zoals hieronder wordt weergegeven:

Als de oorspronkelijke waarden zijn gewijzigd, worden de overeenkomstige waarden in deze gespecificeerde lijst automatisch gewijzigd.

Hoe automatisch dezelfde cel van verschillende bladen naar een blad in Excel vullen?