Como renomear planilhas com base nos valores de células no Excel?
Renomear folhas de cálculo é uma tarefa comum no Excel, mas já alguma vez tentou renomear folhas com base em valores de células? Claro que pode fazê-lo manualmente, mas este tutorial revela alguns truques práticos para renomear rapidamente várias folhas de cálculo a partir de valores de células — poupando-lhe um tempo precioso.
Renomear Planilhas com base numa célula específica com VBA
Renomear Planilhas com base numa célula específica com Renomear Planilhas em Lote 
Renomear Planilhas com base num intervalo de conteúdos de células com Renomear Planilhas em Lote
Renomear Planilhas com base numa célula específica com VBA
Com a macro VBA abaixo, pode renomear a respetiva folha de cálculo com base no valor de uma célula específica.
1. Selecione a célula com base na qual pretende renomear a folha de cálculo — neste caso, a célula A1. Veja a imagem:
2. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e, de seguida, cole o código VBA abaixo na nova janela do Módulo.
VBA: Renomeie as folhas com base no valor de uma célula específica.
Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
xName = xWs.Range(xRngAddress).Value
If xName <> "" Then
xInt = 0
Set xSSh = Nothing
Set xSSh = Worksheets(xName)
While Not (xSSh Is Nothing)
Set xSSh = Nothing
Set xSSh = Worksheets(xName & "(" & xInt & ")")
xInt = xInt + 1
Wend
If xInt = 0 Then
xWs.Name = xName
Else
If xWs.Name <> xName Then
xWs.Name = xName & "(" & xInt & ")"
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub4. Prima a tecla F5 para executar o código VBA. Assim, todas as folhas de cálculo serão renomeadas com base nos respetivos valores da célula A1.
Renomear Planilhas com base numa célula específica com Renomear Planilhas em Lote
Se tiver o Kutools para Excel, não precisa de guardar o código VBA; pode utilizar a funcionalidade Renomear Planilhas em Lote para renomear rapidamente todas as folhas com base nas respetivas células.
Após instalar gratuitamenteKutools para Excel, proceda da seguinte forma:
1. Ative o livro cujas folhas deseja renomear.
2. Clique em KUTOOLS PLUS > Folha de cálculo > Renomear Planilhas. Veja a imagem:
3. Na caixa de diálogo que surge, marque as folhas que pretende renomear no painel Folhas de cálculo, selecione uma das opções de Renomear Opção pretendidas — neste caso, substituirei o nome da folha —, marque então Da Célula da Planilha Correspondente e selecione a célula com base na qual pretende efetuar a renomeação. Veja a imagem:
4. Clique em Ok. As folhas são agora renomeadas com o conteúdo da célula especificada.
Contudo, por vezes, o que precisa é renomear várias folhas com base num intervalo de valores de células, como mostra a imagem seguinte; nesse caso, pode optar pelo método seguinte.
Renomear Planilhas com base num intervalo de conteúdos de células com Renomear Planilhas em Lote
Com a funcionalidade Renomear Planilhas em Lote do Kutools para Excel, pode também renomear as folhas com base num intervalo selecionado.
Após instalar gratuitamenteKutools para Excel, proceda da seguinte forma:
1. Clique em KUTOOLS PLUS > Folha de cálculo > Renomear Planilhas. Veja a imagem:
2. Na caixa de diálogo Renomear Planilhas em Lote, defina as seguintes configurações:
(1) Selecione as folhas de cálculo que pretende renomear em Lista de Planilhas;
(2) Marque a opção Da Seleçãoe selecione os valores de células com base nos quais pretende efetuar a renomeação;
(3) Especifique o Estilo de Renomeação: pode marcar Inserir Antes do Nome Original, Inserir Depois do Nome Original ou Substituir o Nome Original, podendo pré-visualizar o resultado correspondente na caixa de diálogo.
3. Clique em Ok e verá que todas as folhas de cálculo selecionadas foram renomeadas com base nos valores das células especificadas.
Substituir o Nome Original
Inserir Antes do Nome Original
Inserir Depois do Nome Original
Com a utilidade Renomear Planilhas, também pode Renomear Planilhas com um prefixo ou sufixo específico.Clique aqui para saber mais sobre Renomear Planilhas em Lote.
Renomear Várias Folhas com Base em Valores de Células
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos