Como encontrar e substituir nomes de guias de planilhas no Excel?
É fácil encontrar e substituir valores em células no Excel. Mas existe alguma maneira de encontrar e substituir nomes de planilhas no Excel? Por exemplo, como mostra a captura de tela abaixo, você tem várias planilhas que contêm “KTE(Vendas) xxx” no nome da planilha, e agora você precisa substituir todos os “KTE(Vendas)” por “KTE” em todos os nomes de planilhas relacionadas, o que você pode fazer? Este artigo apresentará um método VBA para realizar isso.
Encontre e substitua nomes de guias de planilhas com código VBA
Encontre e substitua nomes de guias de planilhas com código VBA
Por favor, aplique o seguinte código VBA para encontrar e substituir nomes de guias de planilhas no Excel. Siga as instruções abaixo.
1. Pressione as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Depois disso, copie o seguinte código VBA na janela de código.
Código VBA: encontre e substitua nomes de guias de planilhas no Excel
Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
Dim xNum As Long
Dim xRepName As String
Dim xNewName As String
Dim xSheetName As String
Dim xSheet As Worksheet
xRepName = Application.InputBox("Please type in the word you will replace：", "Kutools for Excel", , , , , , 2)
xNewName = Application.InputBox("Please type in the word you will replace with：", "Kutools for Excel", , , , , , 2)
If xRepName = "false" Or xNewName = "false" Then Exit Sub
On Error GoTo ExitLab
For Each xSheet In ActiveWorkbook.Sheets
xSheetName = xSheet.Name
xNum = InStr(1, xSheetName, xRepName)
If xNum > 0 Then
xSheet.Name = Replace(xSheetName, xRepName, xNewName)
End If
ExitLab:
Next
End Sub3. Pressione a tecla F5 para executar o código.
4. Em seguida, uma caixa de diálogo do Kutools para Excel será exibida, por favor insira as palavras dos nomes das planilhas que deseja substituir e clique no botão OK. Veja a captura de tela:
5. Na segunda caixa de diálogo do Kutools para Excel, insira a palavra pela qual deseja substituir e depois clique no botão OK.
Então, todas as palavras relacionadas nos nomes das guias de planilhas serão substituídas pela especificada, como mostra a captura de tela abaixo.
Observação: O código acima diferencia maiúsculas de minúsculas.
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Artigos relacionados:
- Como encontrar e substituir todas as células em branco por determinado número ou texto no Excel?
- Como substituir vírgulas por novas linhas (Alt + Enter) em células no Excel?
- Como criar um código de macro para encontrar e substituir texto no Excel?
- Como encontrar um valor em uma célula com uma lista separada por vírgulas no Excel?
- Como encontrar a interseção de duas listas de colunas no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins