Como copiar uma folha no Excel e renomeá-la automaticamente?
No Excel, como pode copiar uma folha de cálculo e renomeá-la automaticamente sem precisar de digitar o nome manualmente? Neste artigo, mostro-lhe como copiar uma folha uma única vez ou várias vezes e atribuir-lhes nomes específicos de imediato.
Copiar uma folha de cálculo várias vezes e renomeá-la com nomes personalizados utilizando Kutools para Excel
Copiar uma folha de cálculo várias vezes e renomeá-la com nomes de separadores incrementais utilizando código VBA
Se precisar de copiar uma folha de cálculo várias vezes e atribuir-lhes nomes em série, como KTE-1, KTE-2, KTE-3, KTE-4…, o código VBA seguinte pode ajudá-lo.
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Copiar uma folha de cálculo várias vezes e renomear de imediato:
Sub Create()
'Updateby Extendoffice
Dim I As Long
Dim xNumber As Integer
Dim xName As String
Dim xActiveSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Set xActiveSheet = ActiveSheet
xNumber = InputBox("Enter number of times to copy the current sheet")
For I = 1 To xNumber
xName = ActiveSheet.Name
xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
ActiveSheet.Name = "KTE-" & I
Next
xActiveSheet.Activate
Application.ScreenUpdating = True
End Sub
3. Em seguida, prima a tecla F5 para executar este código; aparecerá uma caixa de diálogo a solicitar o número de cópias da Planilha Atual que pretende criar. Veja a imagem:
4. Introduza o número de cópias na caixa de diálogo apresentada e, em seguida, clique no botão OK; a sua planilha atual será duplicada em 5 cópias e renomeada com nomes sequenciais, conforme ilustrado na imagem seguinte:
Nota: No código acima, pode substituir o texto «KTE-» pelo nome da folha que desejar.
Copiar uma folha de cálculo várias vezes e renomeá-la com nomes personalizados utilizando Kutools para Excel
Talvez os códigos VBA acima sejam difíceis de aplicar. Por isso, apresentamos-lhe uma ferramenta simples – Kutools para Excel, cuja funcionalidade Criar Planilhas de Sequência lhe permite realizar esta tarefa sem qualquer esforço.
Após instalar o Kutools para Excel, siga os passos seguintes:
1. Clique em KUTOOLS PLUS > Folha de cálculo > Criar Planilhas de Sequência. Veja a imagem:
2. Na caixa de diálogo Criar Planilhas de Sequência:
(1.) Selecione a Nome da Planilha que pretende copiar na lista pendente Com base na Planilha;
(2.) Em seguida, indique o número de folhas de cálculo que pretende copiar na caixa de texto Número de Planilhas a Criar;
(3.) Depois, ative a opção Números Consecutivosna secção Nome da Planilha Baseado em;
(4.) Por fim, crie a sequência pretendida para o Nome da Planilha no painel direito. Veja a imagem:
3. Após concluir as definições, clique no botão Ok e a folha de cálculo especificada será copiada várias vezes e renomeada de acordo com a sequência que criou, num novo livro. Veja a imagem:
Descarregue gratuitamente o Kutools para Excel agora!
Demonstração: Copiar uma folha de cálculo várias vezes e renomeá-la com nomes personalizados utilizando Kutools para Excel
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