Hvordan viser jeg alle tabelnavne i Excel?
For at liste alle tabelnavne i en projektmappe kan metoder i denne artikel hjælpe dig med at komme igennem den.
Angiv alle tabelnavne i navneboksen
Angiv alle tabelnavne i formellinjen
Liste over alle tabelnavne med VBA-kode
Angiv alle tabelnavne i navneboksen
Alle tabelnavne er som standard angivet i navneboksen.
Klik på pilen til rullelisten i øverste venstre hjørne Navn Box for at få vist alle tabelnavne. Se skærmbillede:
Bemærk: Alle navne på rækkevidde er også angivet i navneboksen med alle tabelnavne.
Angiv alle tabelnavne i formellinjen
Hvis alle tabeller blev navngivet efter det oprindelige tabelnavn som f.eks. Tabel 1, tabel 2 ..., kan du prøve at liste alle disse tabelnavne i formellinjen.
1. Indtast formlen =ROW(T i formelbjælken, så vises alle tabelnavne i listeboksen som vist nedenstående skærmbillede.
Bemærk: Tabelnavne, der er blevet ændret, vises ikke med denne metode.
Liste over alle tabelnavne med VBA-kode
Hvis der er standardtabelnavn og ændret tabelnavn i din projektmappe. Du kan liste dem ud på én gang med følgende VBA-kode.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter under VBA-koden i modulvinduet.
VBA-kode: Liste over alle tabelnavne i 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. Tryk på F5 eller klik på knappen Kør for at køre koden.
Derefter oprettes et nyt regneark navngivet som tabelnavn med alle tabelnavne angivet som vist nedenstående skærmbillede:
Relaterede artikler:
- Hvordan vises tabel- eller pivottabelnavn i en celle i Excel?
- Hvordan kan man holde bord udvideligt ved at indsætte tabelrækker i et beskyttet regneark i Excel?
- Sådan omarrangeres kolonnernes placering i tabellen i Excel?
- Hvordan skjules rækker med nul værdi i pivottabellen?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!