Pomocí makra můžete kopírovat data z jednoho listu aplikace Excel na jiný list ve stejném sešitu
Chcete přenést obsah oblasti z jednoho listu do druhého? Interaktivní používání Excelu je snadné. Jak ale práci s makrem zvládnete? Vytvořte smyčku, která prochází všemi buňkami, které chcete kopírovat. Makro vypadá takto:
Dílčí kopie ()
Dim Quelltab jako pracovní list
Ztlumit cílovou kartu jako pracovní list
Dim Cell jako rozsah
Dim Counter jako dlouhý
Počitadlo = 1
Rozsah = "A1: A10"
Nastavit zdrojovou kartu = ActiveWorkbook.Worksheets ("Table1")
Nastavit cílovou kartu = ActiveWorkbook.Worksheets ("Tabulka2")
Pro každou buňku v SourceTab.Range ("A1: A10")
Cílová tabulka Buňky (čítač, 1) = buňka
Počitadlo = čítač + 1
Další buňka
End Sub
V definici proměnné "Karta Zdroj" zadáte název zdrojové tabulky v sešitu. Toto je list, ze kterého chcete data zkopírovat. V makru je to list „Tabulka1“.
Pomocí značky „Karta Cíl“ definujte název listu, do kterého chcete data zkopírovat.
V makru je zkopírována oblast A1: A10. Pokud chcete použít jinou oblast, upravte podle toho makro.
Pomocí značky "Počitadlo" ovládáte řádek v cílové tabulce, ve kterém má začít vkládání buněk. Data se zkopírují jedna pod druhou do buněk
Chcete -li zadat makro, stisknutím klávesy ALT F11 v aplikaci Excel vyvolejte editor VBA. Pomocí příkazu VLOŽIT - MODUL vložte prázdný list modulu. Chcete -li spustit makro přímo z aplikace Excel, použijte kombinaci kláves ALT F8.
Zkopírujte celý list do sešitu
Máte také možnost zkopírovat celý list do sešitu pomocí makra. Chcete -li zkopírovat aktivní list aktuálního sešitu na konec sešitu, použijte následující makro:
Dílčí kopieAktivníTabulka ()
ActiveSheet.Copy Po: = Pracovní listy (Worksheets.Count)
End Sub
Po spuštění makra se do aktivního sešitu přidá list. Toto je kopie listu, který byl aktivní při volání makra. Aby bylo možné dva listy od sebe odlišit, vytvoří Excel za zkopírovaným listem pořadové číslo. Následující obrázek ukazuje, jak to vypadá v registru tabulky po zkopírování listu „Prodej“:
