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

Como listar todos os nomes de tabelas no Excel?

Para listar todos os nomes de tabela em uma pasta de trabalho, os métodos neste artigo podem ajudá-lo a percorrê-la.

Liste todos os nomes de tabela na caixa de nome
Liste todos os nomes de tabelas na barra de fórmulas
Liste todos os nomes de tabela com código VBA


Liste todos os nomes de tabela na caixa de nome

Todos os nomes de tabela são listados na caixa de nome por padrão.

Clique na seta da lista suspensa no canto superior esquerdo nome Box para exibir todos os nomes de tabelas. Veja a imagem:

Nota: Todos os nomes de intervalo também são listados na caixa de nome com todos os nomes de tabela.


Liste todos os nomes de tabelas na barra de fórmulas

Se todas as tabelas foram nomeadas pelo nome de tabela original, como Tabela1, Tabela2…, você pode tentar listar todos esses nomes de tabela na Barra de Fórmulas.

1. Insira a fórmula =ROW(T na Barra de Fórmulas, todos os nomes de tabelas são listados na caixa de listagem conforme a imagem abaixo mostrada.

Nota: Os nomes das tabelas que foram modificados não serão listados com este método.


Liste todos os nomes de tabela com código VBA

Se houver um nome de tabela padrão e um nome de tabela modificado em sua pasta de trabalho. Você pode listá-los juntos de uma vez com o seguinte código VBA.

1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para a janela Módulo.

Código VBA: lista todos os nomes de tabelas no 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. aperte o F5 ou clique no botão Executar para executar o código.

Em seguida, uma nova planilha chamada Nome da Tabela é criada com todos os nomes de tabela listados como mostrado abaixo:


Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (2)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Usando o VB ListTables, existe uma maneira de incluir também o tableNumber na coluna correspondente?
O motivo de perguntar é porque houve alguns erros relatados pelo Excel referindo-se aos números da tabela, mas não tenho mais visibilidade dos números, pois altero os nomes das tabelas para algo mais descritivo, mas como o Excel ainda usa os números originais da tabela em seu relatório de erros, é impossível para mim identificar com qual das muitas tabelas ele teve um problema.

Este comentário foi feito pelo moderador no site
Obrigado por este post muito útil.
Fiquei me perguntando por que minha exibição personalizada está acinzentada e descobri que era devido a uma tabela inserida! (não é óbvio)
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL