Como renomear várias planilhas no Excel?

Normalmente, para renomear planilhas no Excel, podemos clicar rapidamente duas vezes na guia da planilha ou clicar com o botão direito na guia da planilha e escolher o comando Renomear para renomear as planilhas. Isso é bastante prático para renomear uma ou duas planilhas no Excel, mas se quisermos renomear várias planilhas em uma única operação, como podemos fazer isso?

Usando o comando Renomear para renomear planilhas

Usando uma ferramenta prática para renomear várias planilhas confortavelmente

Usando código VBA para renomear várias planilhas

Usando o comando Renomear para renomear planilhas

Podemos renomear rapidamente planilhas no Excel com o comando Renomear seguindo os seguintes procedimentos:

Clique com o botão direito na guia da planilha que deseja renomear e escolha o comando Renomear no menu de contexto. Ou clique duas vezes na guia da planilha para renomeá-la. Em seguida, digite um novo nome e pressione a tecla Enter para renomeá-la, veja a captura de tela:

Com este comando Renomear, você pode renomear apenas uma planilha por vez. Para renomear várias planilhas, repita as operações acima.

Usando uma ferramenta prática para renomear várias planilhas confortavelmente

Usando código VBA para renomear várias planilhas

Aqui vou apresentar dois códigos VBA para renomear várias planilhas.

Código 1. Código VBA para renomear várias planilhas de uma só vez com o nome desejado

Usando o seguinte código VBA, você pode renomear rapidamente todas as planilhas da pasta de trabalho atual com o mesmo prefixo nos nomes das planilhas, como: KTE-pedido1, KTE-pedido2 e KTE-pedido3…

1. Clique em Desenvolvedor > Visual Basic, e clique em Inserir > Módulo na Janela de Aplicativos Microsoft Visual Basic.

2. Copie e cole o seguinte código no Módulo.

VBA: Renomear todas as planilhas inserindo um nome específico

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  Clique  no botão para executar o código e insira o nome desejado na caixa de diálogo pop-up. Veja as capturas de tela:

4. Clique em OK. Então você verá que todas as planilhas foram renomeadas.

2. Código VBA para renomear várias planilhas pelo valor de célula específica em cada planilha da pasta de trabalho ativa

Usando o seguinte código VBA, ele renomeará todas as planilhas da pasta de trabalho atual usando o conteúdo de uma célula específica. Por exemplo, você pode digitar o nome da planilha na célula A1 de toda a pasta de trabalho, e então a planilha será renomeada conforme o valor da célula A1.

1.  Especifique uma célula para conter o nome da planilha em cada planilha e digite o nome da planilha nela. Neste exemplo, digitarei o nome da planilha na célula A1 em cada planilha.

2.  Clique em Desenvolvedor > Visual Basic, e clique em Inserir > Módulo na Janela de Aplicativos Microsoft Visual Basic.

3.  Copie e cole o seguinte código no Módulo.

VBA: Renomear planilhas pelo conteúdo de uma célula específica

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  Clique  no botão para executar o código. Todas as planilhas são renomeadas com base no conteúdo da célula A1.

Demonstração: Renomear várias planilhas com Kutools para Excel

Artigos relacionados