Přejít k hlavnímu obsahu

Jak vytvořit seznam ze stejných buněk na více listech v aplikaci Excel?

Předpokládejme, že každou měsíční prodejní tabulku nasazujeme do samostatného listu, jak je znázorněno níže, a všechny prodejní tabulky mají stejné rozložení. Nyní chceme vytvořit seznam ze všech hodnot součtu (buňka E6) napříč několika listy. Jak to udělat? A co když vytvoříte dynamický seznam ze součtových hodnot každého listu? Existují dva způsoby, jak:

doc vytvořit seznam více listů 1

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

Vytvořte dynamický seznam ze stejných buněk na více listech pomocí programu Kutools pro Excel

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

Může být zdlouhavé kombinovat desítky listů z různých sešitů do jednoho listu. Ale s programem Kutools pro Excel Kombinovat (pracovní listy a sešity) nástroj, můžete to udělat pomocí několika kliknutí!

ad kombinovat listy knihy 1


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 :

doc vytvořit seznam více listů 2

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.

Kutools pro Excel - Baleno s více než 300 základními nástroji pro Excel. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Stáhnout nyní!

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

doc dynamicky odkazovat na listy 1

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

doc vytvořit seznam více listů 5

(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í.

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now


Kutools pro Excel: Více než 300 užitečných nástrojů na dosah ruky! Začněte svou 30denní bezplatnou zkušební verzi bez omezení funkcí ještě dnes. Stáhnout nyní!

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
This comment was minimized by the moderator on the site
Thank you very much for this. Just saved me hours of work as I had to go through 200 sheets doing data input... One thing to note for people is to click the cell you want it to use prior to opening ip and running the macro. Scratched my head for a couple minutes as the worksheet was opening up but didn't know why the information wasn't showing
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations