Como localizar e substituir nomes de guias de planilhas no Excel?
É fácil localizar e substituir valores em células no Excel. Mas existe alguma maneira de localizar e substituir nomes de planilhas no Excel? Por exemplo, conforme a captura de tela mostrada 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 alcançá-lo.
Encontre e substitua os nomes das guias das planilhas pelo código VBA
Encontre e substitua os nomes das guias das planilhas pelo código VBA
Aplique o código VBA abaixo para localizar e substituir nomes de guias de planilhas no Excel. Faça o seguinte.
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 na janela de código.
Código VBA: localizar e substituir 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 Sub
3. aperte o F5 chave para executar o código.
4. Então um Kutools for Excel caixa de diálogo aparece, digite as palavras dos nomes das planilhas que você irá substituir e clique no OK botão. Veja a imagem:
5. Na segunda Kutools for Excel caixa de diálogo, digite a palavra que você substituirá e clique no botão OK botão.
Em seguida, todas as palavras relacionadas nos nomes da guia da planilha são substituídas por uma especificada conforme a captura de tela abaixo.
Note: O código acima diferencia maiúsculas de minúsculas.
Artigos relacionados:
- Como localizar 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 conseguir localizar e substituir texto no Excel?
- Como encontrar valor em uma célula com lista separada por vírgulas no Excel?
- Como encontrar a interseção de duas listas de colunas no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!