Ir para o conteúdo principal

Como copiar várias planilhas várias vezes no Excel?

Às vezes, podemos precisar fazer uma cópia ou várias cópias de planilhas especificadas em uma pasta de trabalho. Aqui estão algumas maneiras rápidas de ajudá-lo a copiar facilmente uma ou várias planilhas várias vezes no Excel.


Faça uma cópia de várias planilhas de uma vez na pasta de trabalho ativa ou em outra pasta de trabalho com o comando Mover ou Copiar

Com o Mover ou Copiar No Excel, você pode fazer uma cópia de uma planilha, várias planilhas específicas ou todas as planilhas na pasta de trabalho ativa ou em outra pasta de trabalho por vez.

1. Em uma determinada pasta de trabalho para a qual você copiará as planilhas, selecione várias planilhas na barra da guia Planilha.
Note: Segurando CTRL , você pode selecionar várias guias de folha não adjacentes clicando nelas uma a uma na barra de guias da folha; segurando DESLOCAMENTO , você pode selecionar várias guias de folha adjacentes clicando na primeira guia de folha e a última na barra de guias de folha.

2. Clique com o botão direito na guia da folha selecionada na barra da guia da folha e selecione Mover ou Copiar no menu de contexto. Veja a imagem:
doc cópia múltiplas folhas 01

3. No Mover ou Copiar caixa de diálogo, especifique as seguintes configurações:
(1) Especifique a pasta de trabalho de destino para a qual copiará as planilhas do Agendar lista suspensa. Você pode escolher a pasta de trabalho ativa, outra pasta de trabalho aberta ou uma nova pasta de trabalho conforme necessário.
(2) Especifique a posição das folhas copiadas na barra Guia da Folha, você pode escolher depois de todas as folhas existentes.
(3) Verifique Crie uma cópia opção, se você não marcar esta opção, as planilhas selecionadas serão movidas para a pasta de trabalho de destino.
(4) Clique no OK botão.

Agora, ele fará apenas uma cópia das planilhas selecionadas na pasta de trabalho especificada. Para fazer várias cópias dessas planilhas, você pode repetir a operação várias vezes.

Apenas alguns cliques para fazer várias cópias de várias planilhas na pasta de trabalho ativa

Em geral, podemos copiar várias planilhas com o Mover ou Copiar recurso no Excel. No entanto, esse recurso só pode fazer uma cópia por vez. Aqui, com Kutools para Excel Copiar planilhas utilitário, você pode facilmente fazer quantas cópias de muitas planilhas forem necessárias na pasta de trabalho ativa, bastando apenas alguns cliques.


cópia do anúncio várias planilhas 01

Kutools for Excel - Turbine o Excel com mais de 300 ferramentas essenciais. Desfrute de um teste GRATUITO de 30 dias com todos os recursos, sem necessidade de cartão de crédito! Get It Now

Faça várias cópias de uma planilha especificada na pasta de trabalho ativa com o código VBA

Se você quiser fazer 10 cópias de uma planilha especificada, o Mover ou Copiar comando será uma forma demorada e você deve repetir a operação muitas vezes. Mas com o seguinte código VBA, você pode copiar rapidamente a planilha 10 vezes de uma vez.

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

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

VBA: Faça várias cópias de uma determinada planilha na pasta de trabalho ativa

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Note: No código acima, substitua "Sheet1"com o nome da folha a ser copiada.

3. Então aperte F5 para executar o código, uma caixa de prompt aparece perguntando o número de cópias de folha que você deseja.

4. Então clique OK, a planilha especificada foi copiada 100 vezes na pasta de trabalho ativa.


Faça várias cópias de várias planilhas em uma pasta de trabalho ativa com o Kutools para Excel

Embora seja simples fazer uma cópia de várias planilhas no Excel, se você quiser fazer várias cópias de várias planilhas na pasta de trabalho atual, pode ser necessário usar o Mover ou Copiar item de comando repetidas vezes. Gostaria de fazer o trabalho com um clique? Com o Copiar planilhas utilidade do suplemento de terceiros Kutools for Excel, você pode fazer várias cópias de várias planilhas com um clique no Excel.

Kutools for Excel - Turbine o Excel com mais de 300 ferramentas essenciais. Desfrute de um teste GRATUITO de 30 dias com todos os recursos, sem necessidade de cartão de crédito! Get It Now

1. Clique Kutools Plus > Copiar planilhas. Veja a imagem:

Note: Clicando Kutools Plus > Planilha > Copiar planilhas também obterá esse recurso.

2. Aplicar configurações no Copiar várias planilhas caixa de diálogo:
(1) Verifique as planilhas das quais deseja copiar Copie as planilhas selecionadas seção.
(2) Especifique O número de cópias.
(3) Determine a posição das planilhas copiadas, por exemplo, antes ou depois de todas as planilhas, antes ou depois da planilha atual.
(4) Clique no Ok botão.

3. Uma caixa de prompt aparece para lembrá-lo de que as planilhas marcadas foram copiadas várias vezes conforme necessário, clique no botão OK botão para sair. Veja a imagem:

Esta Copiar várias planilhas característica de Kutools for Excel fará várias cópias de várias planilhas especificadas na pasta de trabalho ativa com vários cliques apenas. Faça um teste grátis!


Faça uma cópia de várias planilhas de várias pastas de trabalho em uma nova

Se você tiver o Kutools for Excel instalado, também poderá aplicar seu Combinar planilhas recurso para fazer uma cópia de várias planilhas de várias pastas de trabalho fechadas em uma nova pasta de trabalho com vários cliques apenas no Excel.

Kutools for Excel - Turbine o Excel com mais de 300 ferramentas essenciais. Desfrute de um teste GRATUITO de 30 dias com todos os recursos, sem necessidade de cartão de crédito! Get It Now

1. Clique Kutools Plus > Combinar para ativar o recurso Combinar planilhas.

2. No assistente Combinar Planilhas - Etapa 1 de 3, verifique o Combine várias planilhas de pastas de trabalho em uma planilha opção, e clique no botão Próximo botão. Veja a imagem:

3. No assistente Combine Worksheets - Step 2 of 3, faça como mostrado a seguir captura de tela:
(1) Clique Adicionar > Envie o or Pasta para adicionar pastas de trabalho das quais você copiará as planilhas.
(2) No Lista de cadernos seção, verifique a pasta de trabalho cujas planilhas você irá copiar;
(3) No Lista de planilhas seção, verifique as planilhas que você irá copiar;
(4) Repita acima (2) e (3) para selecionar planilhas de outras pastas de trabalho que você irá copiar.
(5) Clique no Próximo botão.

4. No assistente Combinar Planilhas - Etapa 3 de 3, defina as configurações de cópia conforme necessário e clique no botão Acabamento botão.

5. Agora, na nova caixa de diálogo, especifique uma pasta de destino para salvar a nova pasta de trabalho, nomeie a nova pasta de trabalho no Nome do arquivo caixa, e clique no Salvar botão. Veja a imagem:

Agora, outras duas caixas de diálogo aparecerão e pedirão que você abra a nova pasta de trabalho e salve o cenário de combinação, clique nos botões conforme necessário. Até agora, ele copiou todas as planilhas especificadas de várias pastas de trabalho ao mesmo tempo.

Com esta Combinar (planilhas) utilitário, você pode copiar e combinar facilmente planilhas e pastas de trabalho conforme a lista a seguir. Faça um teste grátis!
(1) Combine rapidamente várias planilhas / intervalos de pastas de trabalho em uma planilha;
(2) Mesclar / combinar rapidamente todas as planilhas com o mesmo nome em uma planilha;
(3) Mesclar / combinar rapidamente planilhas ou pastas de trabalho em uma pasta de trabalho;
(4) Resuma / calcule rapidamente os dados de várias planilhas em uma única planilha.

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
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...

Descrição


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 (25)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.
This comment was minimized by the moderator on the site
Working Code

Sub Copier()
Dim s As String
Dim numtimes As Integer
Dim numCopies As Integer
numCopies = InputBox("How many copies do you need?")
s = InputBox("Enter the name of the Worksheet you want to copy")
For numtimes = 1 To numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Next
End Sub

copy the entire line from ActiveWorkbook.Sheets...... that was the problem, and some spaces

Have a great day
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Here is the exact code you want to use: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
Thank you, the last one saved my life :)
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Double check your code and make sure you don't have a space at ActiveWorkbook. Sheets(s).Copy _ or at Sheets(Worksheets.Cou nt)
This comment was minimized by the moderator on the site
Fantastic VBA code - really helped
This comment was minimized by the moderator on the site
When I first tried it, I got the error message because I didn't change the name Sheet1. After I realized what caused the error, I researched a little further, as I did not want to be manually entering the sheet name into the macro. And when I need this feature, it is almost always for the current sheet. I added the line a = activesheet.name And revised the line after:=activeworkbook.sheets("sheet1") to activeworkbook.sheets(a).copy _ That worked very well, but I did notice the numbering was reversed ... that didn't bother me as I was going to manually rename the new sheets anyway. When I saw Schuyler's post, I further revised the line activeworkbook.sheets(a).copy _ to after:=activeworkbook.sheets(worksheets.count) I am now satisfied with the result. My finished macro: Sub copies() Dim x As Integer x = InputBox("Enter number of times to copy Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub --- All the best, Barry
This comment was minimized by the moderator on the site
i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


but i dunno whats wrong... Can u help me please?
This comment was minimized by the moderator on the site
Thank you so much Barry. Your finished macro is the only thing that worked for me.
This comment was minimized by the moderator on the site
where i will insert this above code in vba should i create common button then inside ?? regards.
This comment was minimized by the moderator on the site
Follow the below steps:
1. Copy the above code
2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
4.Then press F5 key to run the code
5.A prompt box appears to ask you the number of sheet copies you want.
This comment was minimized by the moderator on the site
I get an error that 'numtimes' is not defined...?
This comment was minimized by the moderator on the site
I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
This comment was minimized by the moderator on the site
[quote]I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)By Debbi[/quote] Can you include your complete code to make it easier to debug? A "subscript error out of range" usually means that the code references something that doesn't exist. I find this in my own code when I've got a typo or something of that nature.
This comment was minimized by the moderator on the site
how to copy with same column widths
This comment was minimized by the moderator on the site
Same column widths as the original Worksheet or do you want all of the column widths to be the same?
This comment was minimized by the moderator on the site
yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
This comment was minimized by the moderator on the site
Search for word "After" and change it to "Before". This will create copies in right order "Before" Sheet1. The only thing to rememeber is that numbering will always start from (2) as the original sheet will always be counted as 1st copy. Also you can replace "Sheet1" with name of the tab you are trying to copy.
This comment was minimized by the moderator on the site
[quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By MichaelTadashi[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!
This comment was minimized by the moderator on the site
[quote][quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By juan[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!By MichaelTadashi[/quote]e] If you want the sheet copies to be in sequential order instead of backwards, change the following line... After:=ActiveWorkbook.Sheets("Sheet1") to this... After:=ActiveWorkbook.Sheets(Worksheets.Count) My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name.. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
How do i get the coppies continuous numbered. If the sheet i want to copy is named I002, and i want the next to be named I003,I004,I005 an so on.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations