Ir para o conteúdo principal

 Como copiar planilha e renomear automaticamente no Excel?

No Excel, como você poderia copiar uma planilha e renomeá-la automaticamente sem digitar o nome normalmente? Neste artigo, falarei sobre como copiar uma planilha uma ou várias vezes e dar-lhes nomes específicos de uma vez.

Copie uma planilha várias vezes e renomeie-a com nomes de guia de incremento usando o código VBA

Copie uma planilha várias vezes e renomeie-a com nomes personalizados usando o Kutools para Excel


Se você precisar copiar uma planilha várias vezes e dar-lhes nomes de série, como KTE-1, KTE-2, KTE-3, KTE-4…, o seguinte código VBA pode lhe fazer um favor.

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: copie uma planilha várias vezes e renomeie de uma 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. Então aperte F5 para executar este código e uma caixa de prompt irá lembrá-lo de quantas cópias da planilha atual você deseja copiar, veja a captura de tela:

doc renomear folhas copiadas 1

4. Insira o número de cópias na caixa de diálogo exibida e clique em OK botão, sua planilha atual foi duplicada em 5 cópias e renomeada com o nome da sequência como mostrado a seguir:

doc renomear folhas copiadas 2

Note: No código acima, você pode alterar o texto do nome da planilha “KTE-”Para o seu necessário.


Talvez os códigos VBA acima sejam difíceis de aplicar, aqui, vou apresentar uma ferramenta fácil Kutools for Excel, Com o seu Criar planilhas de sequência utilitário, você pode realizar essa tarefa sem qualquer esforço.

Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. 

Depois de instalar Kutools for Excel, faça o seguinte:

1. Clique Kutools Plus > Planilha > Criar planilhas de sequência, veja a captura de tela:

2. No Criar planilhas de sequência caixa de diálogo:

(1.) Selecione o nome da planilha que você deseja copiar do Planilha Base lista suspensa;

(2.) Em seguida, especifique o número da planilha que você deseja copiar sob O número de criações caixa de texto;

(3.) E então verifique Números de sequência sob a Nomes de planilhas com base em seção;

(4.) Por fim, crie os nomes da planilha de sequência no painel direito que você deseja, veja a captura de tela:

doc renomear folhas copiadas 4

3. Depois de terminar as configurações, por favor clique Ok botão, e a planilha específica foi copiada várias vezes e renomeada com base na sequência criada em uma nova pasta de trabalho, consulte a captura de tela:

doc renomear folhas copiadas 5

Clique em Baixe gratuitamente o Kutools para Excel agora!


Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

Melhores ferramentas de produtividade de escritório

Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

guia kte 201905


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible that you add in this code an option to also copy specific cells. For example: I have in one cell Number 1 and I would like that when I duplicate Sheet will change for +1. Thanks
This comment was minimized by the moderator on the site
Wow this saved a lot of time for me! Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations