Como renomear várias folhas de cálculo no Excel?

Normalmente, para renomear folhas de cálculo no Excel, basta clicar duas vezes rapidamente no separador da folha ou clicar com o botão direito do rato no separador e escolher o comando **Renomear**. Este método é bastante prático quando se trata de renomear uma ou duas folhas, mas como podemos renomear várias folhas de cálculo de uma só vez?

Utilizar o comando Renomear para Renomear Planilhas

Utilizar uma ferramenta prática para renomear múltiplas folhas de cálculo comodamente

Utilizar código VBA para renomear múltiplas folhas de cálculo

Utilizar o comando Renomear para Renomear Planilhas

Podemos rapidamente Renomear Planilhas no Excel com o comando Renomearde acordo com os seguintes procedimentos:

Clique com o botão direito do rato no separador da folha que pretende renomear e escolha o comando Renomear no menu de contexto. Ou, simplesmente, clique duas vezes no separador da folha para editar o nome diretamente. Depois, introduza um novo nome e prima a tecla Enter para confirmar a alteração, conforme ilustrado na captura de ecrã:

Com este comando Renomear, só é possível renomear uma folha de cálculo de cada vez. Para renomear várias folhas de cálculo, repita os passos descritos acima.

Utilizar uma ferramenta prática para renomear múltiplas folhas de cálculo comodamente

Utilizar código VBA para renomear múltiplas folhas de cálculo

Apresento-lhe aqui dois códigos VBA para renomear várias folhas de cálculo de forma rápida e eficaz.

Código 1. Código VBA para renomear várias folhas de cálculo de uma só vez com o nome pretendido

Com o seguinte código VBA, pode renomear rapidamente todas as folhas de cálculo do Livro de Trabalho Atual com o mesmo prefixo nos seus Nome da Planilha, por exemplo: KTE-encomenda1, KTE-encomenda 2 e KTE-encomenda 3…

1. Clique em Programador > Visual Basic e, em seguida, clique em Inserir > Módulo na janela Microsoft Visual Basic para Aplicações Windows.

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

VBA: Renomear todas as folhas introduzindo 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 introduza o nome pretendido na caixa de diálogo apresentada. Veja as capturas de ecrã:

4. Clique em OK. Depois, poderá verificar que todas as folhas foram renomeadas.

2. Código VBA para renomear várias folhas de cálculo com base no valor de uma célula específica em cada folha do livro atual

Com o seguinte código VBA, todas as folhas de cálculo do livro de trabalho atual serão renomeadas com base no conteúdo de uma célula específica. Por exemplo, basta introduzir o nome pretendido na célula A1 de cada folha e esta será automaticamente renomeada com o valor dessa célula.

1. Especifique uma célula para conter o nome da folha de cálculo em cada folha e introduza-o nessa célula. Neste exemplo, introduzirei o nome da folha na célula A1 de cada folha.

2. Clique em Programador > Visual Basic e, em seguida, clique em Inserir > Módulo na janela do Microsoft Visual Basic para Aplicações no Windows.

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

VBA: Renomear Planilhas com base no 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 folhas de cálculo serão renomeadas com base no conteúdo da célula A1.

Demonstração: Renomear várias folhas de cálculo com Kutools para Excel

Artigos relacionados