Hoe maak je een lijst van dezelfde cellen in meerdere werkbladen in Excel?

Met de volgende VBA-code kun je eenvoudig een lijst maken van de opgegeven cellen in meerdere werkbladen. Je kunt als volgt te werk gaan:

Stap 1: Selecteer de opgegeven cel waaruit je de lijst wilt maken. In ons geval selecteren we Cel E6.

Stap 2: Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen, klik op Invoegen > Module, en plak vervolgens de volgende code in het modulevenster.

VBA: Maak een lijst van dezelfde cellen in meerdere werkbladen

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 de F5-toets of klik op de Uitvoeren-knop om deze VBA uit te voeren.

Vervolgens worden alle waarden uit de opgegeven cel in alle werkbladen gekopieerd naar een nieuw werkblad genaamd KutoolsforExcel. Zie onderstaande schermafbeelding:

Deze VBA zal de lijst invullen in een nieuw werkblad, en de waarden in de lijst zijn statisch en zullen niet veranderen met de originele waarden.

Echter, soms wil je misschien de lijst invullen in een opgegeven bereik en vereisen dat de lijstwaarden altijd overeenkomen met de originele waarden in de opgegeven cellen. Om aan deze behoeften te voldoen, moet je de volgende methode proberen.

Deze methode introduceert Kutools voor Excel’s Automatisch werkbladverwijzingen verhogen-hulpprogramma om een dynamische lijst te maken van dezelfde cellen in meerdere werkbladen.

Stap 1: Selecteer het Bereik waar je de dynamische lijst in wilt vullen, en klik op Kutools > Meer > Automatisch werkbladverwijzingen verhogen.

Stap 2: In het openende Vul werkbladverwijzingen-dialoogvenster,

(1) Klik op het Vulvolgorde-vak, en selecteer een vul type uit de vervolgkeuzelijst. In ons geval selecteren we Vullen per kolom, dan per rij;

(2) In de Vulformule vak, specificeer het celadres waaruit je een dynamische lijst wilt maken, en klik vervolgens op de Vergrendelen knop om de formule te vergrendelen.

(3) Klik op de Vulbereik-knop.

Nu zie je dat de waarden in de opgegeven cellen in alle werkbladen worden ingevuld in het opgegeven bereik zoals in de onderstaande schermafbeelding te zien is:

Wanneer de originele waarden veranderen, zullen de bijbehorende waarden in deze opgegeven lijst automatisch veranderen.

Hoe vul je automatisch dezelfde cel van verschillende werkbladen in een werkblad in Excel?