Přejít k hlavnímu obsahu

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

doc převést tabulky na rozsahy 1

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

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
I've used your code in my macro in order to convert my tables to ranges so that I can transpose the data to make it more readable;
-
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next
-
It was working right when I wrote it into the macro. For some reason when I run the macro now it gives me a run time error 1004 on xList.Unlist
-
Do you have any suggestions as to why that might be, or how to fix it? Any help would be greatly appreciated.
-
Thanks!
Sam
This comment was minimized by the moderator on the site
I've used your code in my macro in order to convert my tables to ranges so that I can transpose the data to make it more readable;
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next

It was working right when I wrote it into the macro. For some reason when I run the macro now it gives me a run time error 1004 on xList.Unlist

Do you have any suggestions as to why that might be, or how to fix it?

Any help would be greatly appreciated.

Thanks!
Sam
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations