Jak převést všechny tabulky na rozsahy v aktivním listu?
V aplikaci Excel můžete k záznamu dat použít některé tabulky, ale v některých případech chcete tabulku převést na rozsah pro provedení nějakého vydání. Obecně lze převést pouze jednu tabulku do rozsahu jednou, bude to problematické, pokud v listu bude třeba převést desítky tabulek na rozsahy. Tady mám kód VBA, který dokáže převést tabulky aktivního listu do rozsahu najednou.
Převeďte všechny tabulky na rozsahy aktivních listů pomocí VBA
Převeďte všechny tabulky na rozsahy aktivních listů pomocí VBA
1. Aktivujte list, který chcete převést na jeho tabulky, a stiskněte Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modul Chcete-li vytvořit nový skript modulu, zkopírujte a vložte pod kód do prázdného modulu.
VBA: Převést všechny tabulky aktivního listu na rozsahy
Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next
End Sub
3. lis F5 klíč ke spuštění kódu, nyní byly všechny tabulky aktuálního listu převedeny na rozsahy.
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!