Snadno kombinujte více listů / sešitů do jednoho listu / sešitu

S následujícím kódem VBA můžete snadno vytvořit seznam ze zadaných buněk v několika pracovních listech. Můžete postupovat následovně:

Krok 1: Vyberte zadanou buňku, ze které vytvoříte seznam. V našem případě vybereme buňku E6.

Krok 2: Stiskněte Další + F11 současně otevřete okno Microsoft Visual Basic pro aplikace, klepněte na Vložit > Modula potom vložte následující kód do okna modulu.

VBA: Vytvořte seznam ze stejných buněk na více listech

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

Krok 3: Stiskněte F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto VBA.

Poté se všechny hodnoty ze zadané buňky na všech listech zkopírují do nového listu s názvem KutoolsforExcel. Viz snímek obrazovky ：

Tento VBA vyplní seznam do nového listu a hodnoty v seznamu jsou statické, což se nezmění s původními hodnotami.

Někdy však můžete chtít vyplnit seznam do zadaného rozsahu a vyžadovat, aby hodnoty seznamu vždy odpovídaly původním hodnotám v určených buňkách. Chcete-li těmto potřebám vyhovět, měli byste vyzkoušet následující metodu.

Tato metoda představí Kutools pro ExcelJe Dynamicky viz pracovní listy nástroj pro vytvoření dynamického seznamu ze stejných buněk ve více pracovních listech.

Krok 1: Vyberte Rozsah, kde vyplníte dynamický seznam, a klikněte na Kutools > Moře > Dynamicky viz pracovní listy.

Krok 2: V úvodním dialogovém okně Vyplnit odkazy na pracovní listy

(1) Klikněte na Vyplňte objednávku a vyberte typ výplně z rozevíracího seznamu. V našem případě vybereme Vyplňte svisle buňku po buňce;

(2) V Vyplňte vzorec Do pole zadejte adresu buňky, ze které vytvoříte dynamický seznam, a poté klepněte na Zámek tlačítko  uzamknout vzorec.

(3) Klikněte na Rozsah plnění .

Nyní uvidíte, že hodnoty v zadaných buňkách ve všech pracovních listech jsou vyplněny do zadaného rozsahu, jak je uvedeno níže:

Když se původní hodnoty změní, odpovídající hodnoty v tomto zadaném seznamu se automaticky změní.

Jak automaticky vyplnit stejnou buňku z různých listů do listu v aplikaci Excel?