Note: The other languages of the website are Google-translated. Back to English

Jak wyświetlić listę wszystkich nazw tabel w programie Excel?

Aby wyświetlić listę wszystkich nazw tabel w skoroszycie, metody opisane w tym artykule mogą Ci w tym pomóc.

Wymień wszystkie nazwy tabel w polu nazwy
Wymień wszystkie nazwy tabel na pasku formuły
Wymień wszystkie nazwy tabel z kodem VBA


Wymień wszystkie nazwy tabel w polu nazwy

Wszystkie nazwy tabel są domyślnie wymienione w polu nazwy.

Kliknij strzałkę listy rozwijanej w lewym górnym rogu Nazwa Box aby wyświetlić wszystkie nazwy tabel. Zobacz zrzut ekranu:

Uwagi: Wszystkie nazwy zakresowe są również wymienione w polu nazwy wraz ze wszystkimi nazwami tabel.


Wymień wszystkie nazwy tabel na pasku formuły

Jeśli wszystkie tabele zostały nazwane oryginalną nazwą tabeli, taką jak Tabela1, Tabela2…, możesz spróbować wyświetlić listę wszystkich tych nazw tabel na pasku formuły.

1. Wprowadź wzór =ROW(T na pasku formuły, wszystkie nazwy tabel są wymienione w polu listy, jak pokazano poniżej.

Uwagi: Nazwy tabel, które zostały zmodyfikowane, nie zostaną wyświetlone z tą metodą.


Wymień wszystkie nazwy tabel z kodem VBA

Jeśli w skoroszycie istnieje domyślna nazwa tabeli i zmodyfikowana nazwa tabeli. Możesz wyświetlić je razem za pomocą następującego kodu VBA.

1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna modułu.

Kod VBA: wyświetla wszystkie nazwy tabel w programie Excel.

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. wciśnij F5 lub kliknij przycisk Uruchom, aby uruchomić kod.

Następnie tworzony jest nowy arkusz roboczy o nazwie Nazwa tabeli ze wszystkimi nazwami tabel wymienionymi na poniższym zrzucie ekranu:


Podobne artykuły:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (2)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Używając ListTables VB, czy istnieje sposób na uwzględnienie również tableNumber w odpowiedniej kolumnie?
Powodem, dla którego pytam, jest to, że Excel zgłosił pewne błędy odnoszące się do numerów tabel, ale nie mam już widoczności liczb, ponieważ zmieniłem nazwy tabel na coś bardziej opisowego, ale ponieważ program Excel nadal używa oryginalnych numerów tabel w jego raportowanie błędów, nie mogę określić, z którym z wielu tabel miał problem.

Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję za ten bardzo przydatny post.
Zastanawiałem się, dlaczego mój widok niestandardowy jest wyszarzony i zorientowałem się, że jest to spowodowane wstawioną tabelą! (nie oczywiste)
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL