Ugrás a tartalomra

Hogyan lehet felsorolni az összes táblázatnevet az Excelben?

A munkafüzet összes táblanevének felsorolásához a cikkben szereplő módszerek segíthetnek abban, hogy áttekintse.

Sorolja fel az összes táblázat nevét a Név mezőbe
Sorolja fel az összes táblanevet a Képletsávban
Sorolja fel az összes táblázatnevet VBA kóddal


Sorolja fel az összes táblázat nevét a Név mezőbe

Alapértelmezés szerint az összes táblázat neve szerepel a Név mezőben.

Kattintson a bal felső sarokban található legördülő lista nyílra név Box az összes táblanév megjelenítéséhez. Lásd a képernyőképet:

Megjegyzések: Az összes rangsorolt ​​név a Név mezőben is szerepel, az összes táblanévvel együtt.


Sorolja fel az összes táblanevet a Képletsávban

Ha az összes táblázatot eredeti táblanévvel nevezték el, például Table1, Table2…, akkor megpróbálhatja felsorolni ezeket a táblázatneveket a Képletsávba.

1. Írja be a képletet =ROW(T a képletsávba, akkor az összes táblázat neve felsorolásra kerül a listamezőben, az alábbi képernyőkép szerint.

Megjegyzések: A módosított táblázatnevek nem kerülnek felsorolásra ezzel a módszerrel.


Sorolja fel az összes táblázatnevet VBA kóddal

Ha alapértelmezett táblanév és módosított táblanév van a munkafüzetben. Egyszerre sorolhatja fel őket a következő VBA kóddal.

1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja a VBA kód alatt a Modul ablakba.

VBA-kód: Sorolja fel az összes táblázatnevet az Excel programban.

Sub ListTables()
'Updated by Extendoffice 20180503
    Dim xTable As ListObject
    Dim xSheet As Worksheet
    Dim I As Long
    I = -1
    Sheets.Add.Name = "Table Name"
    For Each xSheet In Worksheets
        For Each xTable In xSheet.ListObjects
            I = I + 1
            Sheets("Table Name").Range("A1").Offset(I).Value = xTable.Name
        Next xTable
    Next
End Sub

3. megnyomni a F5 vagy kattintson a Futtatás gombra a kód futtatásához.

Ezután létrejön egy új, táblázatnévnek nevezett munkalap, amelyben az összes táblázat neve szerepel az alábbi képernyőképen:


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks so much for sharing this information. Just what I was looking for. In fact, I want to abuse of your favor. How can I get the headings of the tables? Something like this Table1[Heading1] Thanks
This comment was minimized by the moderator on the site
Thanks a lot for VBA to list all tables in a workbook.
This comment was minimized by the moderator on the site
Thank you for this very useful post.
I have been wondering why is my Custom view greyed out, and I figured out it was due to an inserted table ! (not obvious)
This comment was minimized by the moderator on the site
Using the ListTables VB, is there a way to also include the tableNumber in the corresponding column ?
The reason I ask is because there have been some errors reported by Excel referring to the table numbers but I don't have visibility of the numbers anymore since I change the table names to something more descriptive but as Excel still uses the original table numbers in its error reporting, it's impossible for me to identify which of the many tables it had an issue with.

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