Normalmente, para renomear planilhas no Excel, podemos clicar duas vezes rapidamente na guia da planilha ou clicar com o botão direito na guia da planilha para escolher o comando Renomear para renomear as planilhas. É muito útil renomear uma ou duas planilhas no Excel, mas se quisermos renomear várias planilhas dentro de uma operação, como podemos fazer?

Usando o comando Renomear para renomear planilhas

Usando uma ferramenta útil para renomear várias planilhas confortavelmente

Usando o código VBA para renomear várias planilhas

Usando o comando Renomear para renomear planilhas

Incrível! Usando guias eficientes no Excel como Chrome, Edge, Firefox e Safari!
Economize 50% do seu tempo e reduza milhares de cliques do mouse para você todos os dias!

Podemos rapidamente renomear planilhas no Excel com o Rebatizar comando de acordo com os seguintes procedimentos:

Clique com o botão direito na guia da planilha que deseja renomear e escolha Rebatizar comando do menu do botão direito. Ou clique duas vezes na guia da planilha para renomear a planilha. Em seguida, digite um novo nome e pressione Entrar chave para renomeá-lo, veja a captura de tela:

Com esta Rebatizar comando, você pode renomear apenas uma planilha de cada vez, com a finalidade de renomear várias planilhas, por favor, repita as operações acima.

Usando uma ferramenta útil para renomear várias planilhas confortavelmente

Usando o código VBA para renomear várias planilhas

Aqui, apresentarei dois códigos VBA para renomear várias planilhas.

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

Usando o seguinte código VBA, você pode renomear rapidamente todas as planilhas da pasta de trabalho atual com o mesmo prefixo em seus nomes de planilha, como: KTE-order1, KTE-order 2 e KTE-order 3…

1. Clique em Developer > Visual BasicE clique inserção > Módulo no Windows do aplicativo Microsoft Visual Basic.

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

VBA: renomeie 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  para executar o código e digite o nome que deseja na caixa de diálogo pop-out.Veja as capturas de tela:

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

2. Código VBA para renomear várias planilhas por valor de célula específico 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 da célula específica. Por exemplo, você pode digitar o nome da planilha na célula A1 de toda a pasta de trabalho e, em seguida, a planilha será renomeada como 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 Developer > Visual BasicE clique inserção > Módulo no Aplicativo Microsoft Visual Basic Janelas.

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

VBA: renomear planilhas por um conteúdo de célula específico

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  botão para executar o código. Todos os worsheets são renomeados com base no conteúdo da célula de A1.

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

Artigos relacionados