Note: The other languages of the website are Google-translated. Back to English

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.
Nota: 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 pode fazer apenas uma cópia por vez. Aqui, com Kutools para Excel's 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 - Inclui mais de 300 ferramentas úteis para Excel. Avaliação gratuita de recursos completos 30-dia, 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

Nota: 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 - Inclui mais de 300 ferramentas úteis para Excel. Avaliação gratuita de recursos completos 30-dia, sem necessidade de cartão de crédito! Get It Now

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

Nota: 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 para 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 - Inclui mais de 300 ferramentas úteis para Excel. Avaliação gratuita de recursos completos 30-dia, 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 Seguinte 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 Seguinte 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 Terminar 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.


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (25)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Usando o código VBA, a nomenclatura das planilhas duplicadas está na ordem inversa. Digamos que eu faça 10 cópias de Sheet1, vou acabar com Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),....... é possível tê-los em ordem normal?
Este comentário foi feito pelo moderador no site
Eu tentei o código VBA e obtive um erro de subscrito fora do intervalo (9). Substituí o nome da planilha por qualquer coisa que eu pudesse pensar que já estivesse na pasta de trabalho. Alguma ideia do que fiz de errado? Além disso, existe uma maneira de nomear cada planilha de forma incremental? Isso combinaria com a pergunta de Michael, tenho certeza. Suponho que a resposta para a pergunta dele seria que você precisaria definir o destino After como "sheet" + x de alguma forma e isso, por sua vez, se aplicaria à minha pergunta se houvesse uma maneira de especificar o nome da nova planilha. Eu sempre poderia mudar o "mestre" do meu chefe para "agosto 0" ou qualquer que seja o mês, mas seria mais fácil para ela entender se o script fizesse a nomeação automaticamente.
Este comentário foi feito pelo moderador no site
obrigado, o código vba era enorme
Este comentário foi feito pelo moderador no site
Uau, obrigado pelo código VBA. Realmente ajuda muito!
Este comentário foi feito pelo moderador no site
[quote]Usando o código VBA, a nomenclatura das planilhas duplicadas está na ordem inversa. Digamos que eu faça 10 cópias de Sheet1, vou acabar com Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),....... é possível tê-los em ordem normal?Por Michael Tadashi[/quote] Alguém conseguiu responder essa pergunta? Preciso criar 72 cópias, mas seria necessário tê-las em ordem (1 a 72, em vez de 72 a 1) Obrigado!
Este comentário foi feito pelo moderador no site
[quote][quote]Usando o código VBA, a nomenclatura das planilhas duplicadas está na ordem inversa. Digamos que eu faça 10 cópias de Sheet1, vou acabar com Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),....... é possível tê-los em ordem normal?Por juan[/quote] Alguém conseguiu responder essa pergunta? Preciso criar 72 cópias, mas seria necessário tê-las em ordem (1 a 72, em vez de 72 a 1) Obrigado!Por Michael Tadashi[/quote]e] Se você quiser que as cópias das folhas sejam em ordem sequencial em vez de inversa, altere a seguinte linha... Depois:=ActiveWorkbook.Sheets("Folha1") para isso... Depois:=ActiveWorkbook.Sheets(Planilhas.Contagem) Meu código completo se parecia com o seguinte, que usa 2 prompts InputBox para permitir uma contagem dinâmica de cópias e um nome de planilha. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("De quantas cópias você precisa?") s = InputBox("Digite o nome da planilha que deseja copiar") For numtimes = 1 Para numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Este comentário foi feito pelo moderador no site
Como faço para obter as cópias contínuas numeradas. Se a planilha que eu quero copiar se chama I002, e eu quero que a próxima se chame I003,I004,I005 e assim por diante.
Este comentário foi feito pelo moderador no site
Procure a palavra "Depois" e mude para "Antes". Isso criará cópias na ordem correta "Antes" da Plan1. A única coisa a lembrar é que a numeração começará sempre de (2), pois a folha original sempre será contada como 1ª via. Além disso, você pode substituir "Sheet1" pelo nome da guia que está tentando copiar.
Este comentário foi feito pelo moderador no site
sim, funciona obrigado Eu fiz com sucesso várias cópias de uma única planilha na mesma pasta de trabalho usando muito o código vba thnx.
Este comentário foi feito pelo moderador no site
como copiar com as mesmas larguras de coluna
Este comentário foi feito pelo moderador no site
Mesmas larguras de coluna da planilha original ou você deseja que todas as larguras de coluna sejam iguais?
Este comentário foi feito pelo moderador no site
Eu recebi o mesmo erro que Theou e ninguém parece ter resolvido isso. Minhas abas já se chamam PO 51, PO 52, etc. e substituí Sheet1 por PO 51 para copiar isso e obtive o erro de subscrito fora do intervalo (9) Segui o código de Schuyler para obter a ordem correta, mas ainda recebo o erro e é sempre devido a estas duas linhas: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Este comentário foi feito pelo moderador no site
[quote]Recebi o mesmo erro que Theou e ninguém parece ter resolvido isso. Minhas abas já se chamam PO 51, PO 52, etc. e substituí Sheet1 por PO 51 para copiar isso e obtive o erro de subscrito fora do intervalo (9) Segui o código de Schuyler para obter a ordem correta, mas ainda recebo o erro e é sempre devido a estas duas linhas: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Por Debbi[/quote] Você pode incluir seu código completo para facilitar a depuração? Um "erro de subscrito fora do intervalo" geralmente significa que o código faz referência a algo que não existe. Eu encontro isso no meu próprio código quando tenho um erro de digitação ou algo dessa natureza.
Este comentário foi feito pelo moderador no site
Eu recebo um erro que 'numtimes' não está definido...?
Este comentário foi feito pelo moderador no site
onde vou inserir este código acima em vba devo criar um botão comum então dentro ?? Saudações.
Este comentário foi feito pelo moderador no site
Siga as etapas abaixo:
1. Copie o código acima
2. Mantenha pressionadas as teclas ALT + F11 e abre a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código a seguir na janela Módulo.
4. Em seguida, pressione a tecla F5 para executar o código
5.Aparece uma caixa de prompt perguntando o número de cópias de folhas que você deseja.
Este comentário foi feito pelo moderador no site
Quando tentei pela primeira vez, recebi a mensagem de erro porque não alterei o nome Sheet1. Depois que percebi o que causou o erro, pesquisei um pouco mais, pois não queria estar digitando manualmente o nome da planilha na macro. E quando preciso desse recurso, quase sempre é para a planilha atual. Adicionei a linha a = activesheet.name E revisei a linha after:=activeworkbook.sheets("sheet1") para activeworkbook.sheets(a).copy _ Isso funcionou muito bem, mas notei que a numeração estava invertida... isso não me incomodou, pois eu ia renomear manualmente as novas planilhas de qualquer maneira. Quando vi o post de Schuyler, revisei ainda mais a linha activeworkbook.sheets(a).copy _ para after:=activeworkbook.sheets(worksheets.count) Agora estou satisfeito com o resultado. Minha macro finalizada: Sub copy() Dim x As Integer x = InputBox("Digite o número de vezes para copiar Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets( Worksheets.Count) Next End Sub --- Tudo de bom, Barry
Este comentário foi feito pelo moderador no site
Muito obrigado Barry. Sua macro finalizada é a única coisa que funcionou para mim.
Este comentário foi feito pelo moderador no site
eu tenho erro de sintaxe em "After:=ActiveWorkbook.Sheets(Worksheets.Count)


mas eu não sei o que está errado... Você pode me ajudar por favor?
Este comentário foi feito pelo moderador no site
Código VBA fantástico - realmente ajudou
Este comentário foi feito pelo moderador no site
Eu sou novo nisso, estou apenas tentando fazer cópias da mesma planilha este é o código que estou usando. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("De quantas cópias você precisa?") s = InputBox("Digite o nome da planilha que deseja copiar") For numtimes = 1 Para numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub quando eu uso o código me dá o erro de "Syntax Error" então este texto fica vermelho ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) e o texto fica amarelo Sub Copier() o que posso fazer para corrigi-lo.
Este comentário foi feito pelo moderador no site
[quote]Sou novo nisso estou apenas tentando fazer cópias da mesma planilha este é o código que estou usando. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("De quantas cópias você precisa?") s = InputBox("Digite o nome da planilha que deseja copiar") For numtimes = 1 Para numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub quando eu uso o código me dá o erro de "Syntax Error" então este texto fica vermelho ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) e o texto fica amarelo Sub Copier() o que posso fazer para corrigi-lo.Por Tyler Dempsey[/quote] Verifique seu código e certifique-se de não ter um espaço no ActiveWorkbook. Planilha(s). Copiar _ ou em Planilhas(Planilhas.Contagem)
Este comentário foi feito pelo moderador no site
[quote]Sou novo nisso estou apenas tentando fazer cópias da mesma planilha este é o código que estou usando. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("De quantas cópias você precisa?") s = InputBox("Digite o nome da planilha que deseja copiar") For numtimes = 1 Para numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub quando eu uso o código me dá o erro de "Syntax Error" então este texto fica vermelho ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) e o texto fica amarelo Sub Copier() o que posso fazer para corrigi-lo.Por Tyler Dempsey[/quote] Aqui está o código exato que você deseja usar: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("De quantas cópias você precisa?") s = InputBox("Enter o nome da planilha que você deseja copiar") For numtimes = 1 Para numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Este comentário foi feito pelo moderador no site
Obrigado, o último salvou minha vida :)
Este comentário foi feito pelo moderador no site
Código de Trabalho

Subcopiadora()
Dim s As String
Dim numtimes como inteiro
Dim numCópias como inteiro
numCopies = InputBox("De quantas cópias você precisa?")
s = InputBox("Digite o nome da Planilha que deseja copiar")
Para numtimes = 1 Para numCópias
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Seguinte
End Sub

copie a linha inteira do ActiveWorkbook.Sheets...... esse era o problema e alguns espaços

Tenha um ótimo dia
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL