Supondo que você tenha uma pasta de trabalho com várias planilhas, agora você deseja listar todos os nomes de planilhas na pasta de trabalho atual, existe algum método rápido para criar uma lista desses nomes de planilhas no Excel sem digitá-los um por um? Este tutorial fornece instruções sobre como listar nomes de planilhas no Excel.

Obtenha uma lista de todos os nomes de planilhas de uma pasta de trabalho dinamicamente com fórmulas

Obtenha uma lista de todos os nomes de planilhas de uma pasta de trabalho com um recurso útil

Obtenha uma lista de todos os nomes de planilhas de uma pasta de trabalho com código VBA

Obtenha uma lista de todos os nomes de planilhas de uma pasta de trabalho dinamicamente com fórmulas

No Excel, você pode definir um nome de intervalo e, em seguida, aplicar uma fórmula para listar todos os nomes de planilhas da pasta de trabalho atual, siga as seguintes etapas:

1. Clique em Fórmula > Gerente de Nomes, veja a captura de tela:

2. No Gerente de Nomes caixa de diálogo, clique em Novo botão, veja a captura de tela:

3. No estalou para fora Novo nome caixa de diálogo, especifique um nome no Nome caixa de texto e, em seguida, copie a fórmula abaixo para o Refere-se a caixa de texto, veja a captura de tela:

=GET.WORKBOOK(1)&T(NOW())

4. Então clique OK > Fechar para fechar as caixas de diálogo, agora, vá para uma planilha onde deseja listar todos os nomes das planilhas e, a seguir, insira a seguinte fórmula em uma célula em branco:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

Note: Na fórmula acima, Nomes de folha é o nome do intervalo que você criou na etapa 3.

5. E, em seguida, arraste a alça de preenchimento para baixo para as células quando as células em branco forem exibidas, e agora, todos os nomes de planilhas da pasta de trabalho atual foram listados conforme a captura de tela abaixo:

6. Se você deseja criar o hiperlink para cada planilha, use a fórmula abaixo:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

Note: Na fórmula acima, A2 é a célula que contém o nome da planilha, e A1 é a célula onde você deseja que a célula ativa esteja localizada. Por exemplo, se você clicar no texto do hiperlink, ele localizará a célula A1 da planilha.

7. Agora, quando você clicar no texto do hiperlink, ele o levará para aquela planilha, veja a demonstração abaixo:

Obtenha uma lista de todos os nomes de planilhas de uma pasta de trabalho com um recurso útil

Com o Criar lista de nomes de planilhas utilidade do suplemento de terceiros Kutools for Excel, você pode criar uma lista de nomes de planilhas com um clique e criar um link para cada planilha com um hiperlink.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Clique Kutools Plus > Planilha > Criar lista de nomes de planilhas, veja a captura de tela:

2. No Criar lista de nomes de planilhas caixa de diálogo, especifique as seguintes configurações:

(1.) Escolha estilos de índice de folha você gosta, você pode criar os nomes da planilha com hiperlinks ou com botões de macro. (2.) Insira os nomes da planilha para o índice da planilha. (3.) Especifique a localização do índice da planilha. (4.) Especifique quantas colunas deseja usar na nova planilha para exibir os nomes da planilha.

3. Depois de terminar as configurações, clique em OK. Todos os nomes de planilhas foram listados com links em uma nova planilha da pasta de trabalho atual. Veja a imagem:

nomes de planilhas com hiperlinks	nomes de planilhas com botões macro

Obtenha uma lista de todos os nomes de planilhas de uma pasta de trabalho com código VBA

1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole a macro a seguir no Módulo Janela.

VBA: Liste todos os nomes de planilhas com hiperlinks em uma nova planilha:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. aperte o F5 chave para executar esta macro. Agora todos os nomes de planilhas na pasta de trabalho ativa foram listados em uma nova planilha chamada Índice, e os nomes das planilhas também estão vinculados a cada planilha, veja a captura de tela:

Artigos relacionados