Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es listen tots els noms de la taula a Excel?

Per incloure tots els noms de la taula en un llibre, els mètodes d'aquest article us poden ajudar a superar-lo.

Llista tots els noms de la taula en el quadre de noms

Llista tots els noms de la taula a la barra de fórmules

Llista tots els noms de taula amb codi VBA


Llista tots els noms de la taula en el quadre de noms


Tots els noms de la taula s'enumeren en el quadre de noms de forma predeterminada.

Feu clic a la fletxa desplegable que hi ha a la cantonada superior esquerra Quadre de noms per mostrar tots els noms de la taula. Mostra la captura de pantalla:

Nota: Tots els noms de rang també apareixen en el quadre de noms amb tots els noms de la taula.


Llista tots els noms de la taula a la barra de fórmules

Si totes les taules van ser nomenades pel nom de la taula original com Table1, Table2 ..., podeu provar de llistar tots aquests noms de la taula a la barra de fórmules.

1. Introduïu la fórmula =ROW(T a la barra de fórmules, a continuació, tots els noms de la taula es mostren al quadre de llista tal com es mostra a la captura de pantalla.

Nota: Els noms de les taules que s'han modificat no es detallaran amb aquest mètode.


Llista tots els noms de taula amb codi VBA

Si hi ha un nom de taula predeterminat i un nom de taula modificat al vostre llibre. Podeu llistar-los junts alhora amb el següent codi VBA.

1. Premeu el botó Alt + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls. A continuació, copieu el codi VBA per sota de la finestra del mòdul.

Codi VBA: llista tots els noms de taula a 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. Premeu el botó F5 o feu clic al botó Executa per executar el codi.

A continuació, es crea un full de treball nou anomenat com a Nom de taula amb tots els noms de la taula que es detallen a continuació de la següent pantalla:


Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.