Como copiar uma planilha e renomeá-la automaticamente no Excel?
No Excel, como você poderia copiar uma planilha e renomeá-la automaticamente sem digitar o nome como de costume? Neste artigo, vou falar sobre como copiar uma planilha uma ou várias vezes e atribuir nomes específicos de uma só vez.
Copie uma planilha várias vezes e renomeie-as com nomes de abas incrementais usando código VBA
Copie uma planilha várias vezes e renomeie-as com nomes personalizados usando Kutools para Excel
Copie uma planilha várias vezes e renomeie-as com nomes de abas incrementais usando código VBA
Se você precisar copiar uma planilha várias vezes e dar a elas nomes em série, como KTE-1, KTE-2, KTE-3, KTE-4…, o seguinte código VBA pode ajudá-lo.
1. Mantenha pressionadas as teclas ALT + F11 para abrir a janela 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: Copie uma planilha várias vezes e renomeie de uma só vez:
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, pressione a tecla F5 para executar este código, e uma caixa de prompt lembrará quantas cópias da planilha atual você deseja copiar, veja a captura de tela:
4. Insira o número de cópias na caixa de diálogo que apareceu e clique no botão OK; sua planilha atual terá sido duplicada em 5 cópias e renomeada com nomes sequenciais, conforme mostrado na captura de tela abaixo:
Observação: No código acima, você pode alterar o texto do nome da planilha “KTE-” para o que você precisa.
Copie uma planilha várias vezes e renomeie-as com nomes personalizados usando Kutools para Excel
Talvez os códigos VBA acima sejam difíceis para você aplicar; aqui, vou apresentar uma ferramenta fácil - Kutools para Excel, com seu utilitário Criar Planilhas de Sequência, você pode realizar essa tarefa sem nenhum esforço.
Após instalar o Kutools para Excel, faça o seguinte:
1. Clique em Kutools Plus > Planilha > Criar Planilhas de Sequência, veja a captura de tela:
2. Na caixa de diálogo Criar Planilhas de Sequência:
(1.) Selecione o nome da planilha que você deseja copiar na lista suspensa Com base na Planilha;
(2.) Em seguida, especifique o número de planilhas que você deseja copiar na caixa de texto Número de Planilhas a Criar;
(3.) E então marque Números Consecutivos na seção Nome da Planilha Baseado em;
(4.) Por fim, crie os nomes das planilhas de sequência no painel à direita que você deseja, veja a captura de tela:
3. Após concluir as configurações, clique no botão Ok, e a planilha específica terá sido copiada várias vezes e renomeada com base na sequência criada em uma nova pasta de trabalho, veja a captura de tela:
Clique para Baixar Grátis o Kutools para Excel Agora!
Demonstração: Copie uma planilha várias vezes e renomeie-as com nomes personalizados usando Kutools para Excel
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins