Se você possui uma pasta de trabalho do Excel com centenas de planilhas e agora deseja obter uma lista de todos os nomes de planilhas, consulte este artigo. Aqui vamos compartilhar 3 métodos simples com você.
Às vezes, pode ser necessário gerar uma lista de todos os nomes de planilhas em uma pasta de trabalho do Excel. Se houver apenas algumas planilhas, basta usar o Método 1 para listar os nomes das planilhas manualmente. No entanto, caso a pasta de trabalho do Excel contenha um grande número de planilhas, é melhor usar os dois últimos métodos, que são muito mais eficientes.
Método 1: Obter lista manualmente
- Primeiro, abra a pasta de trabalho específica do Excel.
- Em seguida, clique duas vezes no nome de uma planilha na lista de planilhas na parte inferior.
- Em seguida, pressione “Ctrl + C” para copiar o nome.
- Mais tarde, crie um arquivo de texto.
- Em seguida, pressione “Ctrl + V” para colar o nome da planilha.
- Agora, desta forma, você pode copiar o nome de cada folha para o arquivo de texto, um por um.
Método 2: lista com fórmula
- Inicialmente, abra a aba “Fórmulas” e clique no botão “Gerenciador de Nomes”.
- Em seguida, na janela pop-up, clique em “Novo”.
- Na caixa de diálogo subsequente, digite “ListSheets” no campo “Name”.
- Posteriormente, no campo “Refere-se a”, insira a seguinte fórmula:
=SUBSTITUIR(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")
- Depois disso, clique em “OK” e “Fechar” para salvar esta fórmula.
- Em seguida, crie uma nova planilha na pasta de trabalho atual.
- Em seguida, digite “1” na célula A1 e “2” na célula A2.
- Depois, selecione as duas células e arraste-as para a entrada 2,3,4,5, etc. na Coluna A.
- Posteriormente, coloque a seguinte fórmula na célula B1.
=ÍNDICE(ListaFolhas,A1)
- De uma só vez, o nome da primeira folha será inserido na célula B1.
- Por fim, basta copiar a fórmula até ver o “#REF!” erro.
Método 3: Listar via Excel VBA
- Para comotart, acione o editor Excel VBA de acordo com “Como executar o código VBA no seu Excel".
- Em seguida, coloque o código a seguir em um módulo ou projeto.
Sub ListSheetNamesInNewWorkbook() Dim objNewWorkbook As Workbook Dim objNewWorksheet As Worksheet Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets(1) For i = 1 To ThisWorkbook.Sheets.Count objNewWorksheet.Cells(i, 1) = i objNewWorksheet.Cells(i, 2) = ThisWorkbook.Sheets(i).Name Próximo i Com objNewWorksheet .Rows(1).Insert .Cells(1, 1) = "INDEX" .Cells(1, 1).Font. Bold = True .Cells(1, 2) = "NAME" .Cells(1, 2).Font.Bold = True .Columns("A:B").AutoFit End With End Sub
- Mais tarde, pressione “F5” para executar esta macro agora.
- Imediatamente, uma nova pasta de trabalho do Excel aparecerá, na qual você pode ver a lista de nomes de planilhas da pasta de trabalho do Excel de origem.
Comparação
| Diferenciais | Desvantagens | |
| Método 1 | Fácil de operar | Muito problemático se houver muitas planilhas |
| Método 2 | Fácil de operar | Exige que você digite o índice primeiro |
| Método 3 | Rápido e conveniente | Os usuários devem tomar cuidado com as macros maliciosas externas |
| Fácil mesmo para iniciantes em VBA |
Excel fica corrompido
Sabe-se que o MS Excel falha de vez em quando, danificando os arquivos atuais ao salvá-los. Portanto, é altamente recomendável obter um poderoso Reparação do Excel ferramenta, como DataNumen Outlook Repair. É porque esse recurso de auto-recuperação no Excel falha com frequência.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo correção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com