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

Como mesclar ou consolidar planilhas ou pastas de trabalho em uma planilha?

Em nosso trabalho diário, podemos encontrar um problema que mescla centenas de planilhas ou pastas de trabalho em uma planilha para analisar dados, o que leva muito tempo se você usar o comando Copiar e Colar no Excel. Aqui neste tutorial, irei fornecer algumas dicas para resolver rapidamente esse trabalho.

doc combinar 1

NAVEGAÇÃO RÁPIDA

Mesclando todas as planilhas da pasta de trabalho ativa em uma planilha com VBA
Mesclar dezenas de planilhas ou pastas de trabalho em uma planilha / pasta de trabalho com cliques
Mesclando duas tabelas em uma e atualizando por uma coluna com cliques
Baixar arquivo de amostra


Mesclando todas as planilhas da pasta de trabalho ativa em uma planilha com VBA

Nesta seção, apresento um código VBA que criará uma nova planilha para coletar todas as planilhas da pasta de trabalho ativa enquanto você a executa.

1. Ative a pasta de trabalho que deseja combinar com todas as planilhas e pressione + chaves para abrir Microsoft Visual Basic para Aplicações janela.

2. Na janela pop-up, clique em inserção > Módulo para criar um novo script de módulo.

3. Copie o código abaixo e cole-o no script.

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc combinar 2

4. Pressione F5 , todos os dados nas planilhas foram mesclados em uma nova planilha chamada Combined, que é colocada na frente de todas as planilhas.


não se mova

Quer Aumentar o Salário e Muito Tempo para Acompanhar a Família?

Guia Office aumenta sua eficiência em 50% no Microsoft Office trabalhando agora

Inacreditável, trabalhar com dois ou mais documentos é mais fácil e rápido do que trabalhar com um.

Em comparação com navegadores conhecidos, a ferramenta com guias no Office Tab é mais poderosa e mais eficiente.

Reduza centenas de cliques do mouse e digitação no teclado todos os dias para você, diga adeus à mão do mouse agora.

Se você costuma trabalhar com vários documentos, o Guia do Office será uma grande economia de tempo para você.

30- dia de teste gratuito, não é necessário cartão de crédito.

Saber maisDownload grátis agora


Mesclar dezenas de planilhas ou pastas de trabalho em uma planilha / pasta de trabalho com cliques

Com o VBA, você só pode combinar planilhas na pasta de trabalho ativa, mas como mesclar planilhas entre pastas de trabalho em uma planilha ou pasta de trabalho?

Mesclar planilhas em pastas de trabalho em uma única planilha
doc combinar 18

Mesclar planilhas em pastas de trabalho em uma pasta de trabalho
doc combinar 3

Para resolver este trabalho e satisfazer outros requisitos de combinação de folhas, o Combinar função foi desenvolvida com quatro cenários de combinação:

  • Combine várias folhas ou pastas de trabalho em uma folha
  • Combine várias planilhas ou pastas de trabalho em uma pasta de trabalho
  • Combine as mesmas folhas de nome em uma folha
  • Consolidar valores em planilhas ou pastas de trabalho em uma planilha

Aqui pega a segunda opção como instância:

Combine várias planilhas ou pastas de trabalho em uma pasta de trabalho

Depois de instalação grátis Kutools para Excel, faça o seguinte:

1. Ative o Excel, clique em Kutools Plus > Combinar, uma caixa de diálogo aparecerá para lembrá-lo de que as pastas de trabalho que você deseja combinar precisam ser fechadas. Clique OK para continuar.
doc combinar 4
doc combinar 5

2. No Combinar planilhas, etapa 1 diálogo, verificar Combine várias planilhas de pastas de trabalho em uma pasta de trabalho opção. Clique Seguinte para ir para a próxima etapa do assistente.
doc combinar 6

3. Clique Adicionar > Envie o or Pasta para adicionar as pastas de trabalho que deseja combinar ao Lista de cadernos painel, então você pode especificar qual planilha será unida, verificando os nomes em Lista de planilhas painel. Clique Seguinte para ir para a última etapa do assistente.
doc combinar 7

4. Nesta etapa, especifique as configurações conforme necessário. Então clique Terminar.
doc combinar 8

5. Uma janela aparecerá para você selecionar uma pasta para colocar a pasta de trabalho combinada e, em seguida, clique em Salvar.
doc combinar 9

Agora, as pastas de trabalho foram mescladas em uma pasta de trabalho. E na frente de todas as planilhas, uma planilha mestre chamada Kutools for Excel também é criada, listando algumas informações sobre as planilhas e links para cada planilha.
doc combinar 10

Demonstração: Combine planilhas / pastas de trabalho em uma folha ou pasta de trabalho

Kutools para Excel: mais de 200 ferramentas úteis e úteis, simplificando as tarefas complicadas no Excel em apenas alguns cliques.

Diga adeus à espondilose cervical e de mão de rato agora

300 ferramentas avançadas de Kutools for Excel resolvem 80% Tarefas do Excel em segundos, tira você dos milhares de cliques do mouse.

Lide facilmente com 1500 cenários de trabalho, sem necessidade de perder tempo em busca de soluções, tenha muito tempo para curtir sua vida.

Melhore a produtividade de 80% para mais de 110000 pessoas altamente eficazes todos os dias, incluindo você, claro.

Deixando de ser atormentado por fórmulas dolorosas e VBA, dê ao seu cérebro um descanso e um bom humor para trabalhar.

30teste gratuito de um dia com recursos completos, 30-day dinheiro de volta sem motivos.

Um corpo melhor cria uma vida melhor.


Mesclando duas tabelas em uma e atualizando por uma coluna com cliques

Se você quiser mesclar duas tabelas em uma e atualizar os dados com base em uma coluna, como mostrado na imagem abaixo, você pode tentar Mesclagem de tabelas utilidade de Kutools for Excel.
doc combinar 11

Kutools para Excel: mais de 200 suplementos úteis do Excel para simplificar tarefas complicadas com apenas alguns cliques no Excel

Depois de instalação grátis Kutools para Excel, faça o seguinte:

1. Clique Kutools Plus > Mesclagem de tabelas Para habilitar Mesclagem de tabelas assistente.
doc combinar 12

2. Na etapa 1 do assistente, você precisa selecionar separadamente a tabela principal e os intervalos da tabela de pesquisa. Então clique Seguinte.
doc combinar 13

3. Marque a coluna-chave na qual deseja atualizar os dados na tabela principal. Clique Seguinte.
doc combinar 14

4. Em seguida, verifique as colunas na tabela principal onde deseja atualizar os dados com base na tabela de pesquisa. Clique Seguinte.
doc combinar 15

5. Na etapa 4 do assistente, verifique as colunas que deseja adicionar da tabela de pesquisa à tabela principal. Clique Seguinte.
doc combinar 16

6. Na última etapa do assistente, especifique as opções de configuração conforme necessário. Então clique Terminar.
doc combinar 17

Agora a tabela principal foi atualizada os dados e adiciona novos dados com base na tabela de pesquisa.

Demonstração: Combine planilhas / pastas de trabalho em uma folha ou pasta de trabalho

Kutools para Excel: mais de 200 ferramentas úteis e úteis, simplificando as tarefas complicadas no Excel em apenas alguns cliques.


Baixar arquivo de amostra

amostra


Ferramentas de produtividade recomendadas

Guia Office - navegação com guias, edição e gerenciamento de documentos no Microsoft Office 2019 - 2003 e no Office 365


guia do escritório

Um suplemento profissional para acelerar o Excel 2019-2007, reduza horas de tarefas para segundos

Este add-in inclui dezenas de grupos profissionais, com mais de 300 opções automatizará a maioria de suas tarefas diárias no Excel e aumentará sua produtividade em pelo menos 50%. Como grupos de opções de um clique e conversões em lote.
Agora é sua chance de acelerar com o Kutools para Excel!


Comentários (168)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
usou sua primeira função Macro. UAU! Obrigado por publicar
Este comentário foi feito pelo moderador no site
Eu acho que o código 'Selection.Offset(0, 0).Resize(Selection.Rows.Count - 1).Selecionar' não tem que estar lá. Do meu lado, o que ele faz é selecionar a segunda linha em diante, perdendo a primeira.
Este comentário foi feito pelo moderador no site
Eu tenho o mesmo problema. Está omitindo a primeira linha da segunda planilha adicionada.
Este comentário foi feito pelo moderador no site
Elimina cabeçalhos para que você não tenha cabeçalhos duplicados
Este comentário foi feito pelo moderador no site
Funciona como um encanto, obrigado por compartilhar!
Este comentário foi feito pelo moderador no site
Obrigada! A macro funcionou perfeitamente.
Este comentário foi feito pelo moderador no site
eu não sei, como usar a função VBN no Excel, você pode ajudar como fazer isso.
Este comentário foi feito pelo moderador no site
Maravilha, obrigado!!! Muito Muito útil
Este comentário foi feito pelo moderador no site
Macro um funciona bem. Obrigado!! É incrivel!!!! :)
Este comentário foi feito pelo moderador no site
Observe que isso é limitado pelo limite de 65k linhas, se você precisar aumentar a linha Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) range para resolver o problema.
Este comentário foi feito pelo moderador no site
Ótima ferramenta, porém, não combina todas as 21 folhas. Como posso expandir o alcance?
Este comentário foi feito pelo moderador no site
NOTA!!! Você precisa ter cuidado com a macro. Ela funcionará se seus dados tiverem um fluxo contínuo de informações e nenhuma linha em branco. é isso que a linha "Selection.CurrentRegion.Select" faz. Por exemplo, se você precisar copiar TODOS os dados em uma planilha, mas houver uma linha em branco na (digamos) linha 200, a macro copiará apenas até a linha 200; IRÁ DESCONSIDERAR TODOS OS DADOS ABAIXO DESSA LINHA!!!
Este comentário foi feito pelo moderador no site
Alguém conhece um comando para evitar esse problema?? O problema com Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select pode ser resolvido? Selection.Rows.Count - 1) é o comando que originou o problema. Alguém??
Este comentário foi feito pelo moderador no site
Em vez de começar de cima e descer, comece de baixo e suba
Este comentário foi feito pelo moderador no site
Alguém sabe o código para resolver problemas de linhas e colunas vazias?. Eu tenho isso em meus dados, mas não há solução simples como iniciar de baixo para cima? Obrigado!
Este comentário foi feito pelo moderador no site
Para excluir linhas vazias: Opção 1: Selecione as células na coluna A que precisam ser excluídas. Use Ctrl - e selecione Linha inteira no pop-up. Salve a pasta de trabalho e saia. Em seguida, abra a pasta de trabalho. Opção 2: selecione as linhas que precisam ser excluídas. Use Ctrl-. Salvar pasta de trabalho e sair da pasta de trabalho aberta. Deu a opção 1 para que ficasse visível para você o que estava acontecendo. Para excluir colunas vazias: Selecione a coluna. Ctrl-. Salvar pasta de trabalho e sair da pasta de trabalho aberta.
Este comentário foi feito pelo moderador no site
Temos alguma solução para copiar os dados abaixo da célula em branco?
Este comentário foi feito pelo moderador no site
Obrigada ! Minha segunda linha estava vazia em todas as folhas e fiquei confuso.
Este comentário foi feito pelo moderador no site
o código vba funcionou muito bem, mas preciso que a planilha combinada seja atualizada à medida que adiciono novas linhas ou novos dados às células nas planilhas que estou combinando. Existe uma maneira de fazer isso? Obrigado pela ajuda.
Este comentário foi feito pelo moderador no site
O código de macro funcionou muito bem para a primeira planilha combinada, mas preciso que a planilha combinada seja atualizada à medida que adiciono dados às planilhas existentes que estou combinando. Existe uma maneira de fazer isso?
Este comentário foi feito pelo moderador no site
Você já descobriu como fazer com que ele seja atualizado no mestre à medida que adiciona linhas às outras planilhas?
Este comentário foi feito pelo moderador no site
Excelente trabalho.. Isso reduziu meu trabalho de 2 horas para 10 minutos.
Este comentário foi feito pelo moderador no site
Excelente, usei a primeira macro e o Kutools, ambos reduziram tremendamente meu trabalho de coleta e compilação de dados. Obrigado por compartilhar.
Este comentário foi feito pelo moderador no site
Acabei de apagar a parte abaixo e agora só atualiza. Espero que isso ajude... Sheets(1).Selecione Worksheets.Add
Este comentário foi feito pelo moderador no site
Código funciona muito bem! Eu preciso da macro para copiar todos os dados nas planilhas. Ele está cortando a primeira linha após a Planilha 1. Apenas a planilha um tem a linha de cabeçalho, as outras planilhas são apenas dados. Isso é possível?
Este comentário foi feito pelo moderador no site
Tenho dúvida sobre "Mesclar todas as planilhas em uma planilha com código VBA" :O código funciona muito bem, mas somente quando está vazio, adiciona o cabeçalho, é possível modificar o código para dizer para não consolidar a planilha vazia?
Este comentário foi feito pelo moderador no site
Obrigado, você me salvou uma hora de copiar e colar :D
Este comentário foi feito pelo moderador no site
Tem duas pastas de trabalho, os mesmos dados, mas a segunda tem dados extras e alguns dados foram atualizados, inv# Status 123 7/2 open inv# status 123 7/2 open 7/7 closed como mesclar em um removendo ou destacando duplicatas e adicionando qualquer novo inv# não no primeiro
Este comentário foi feito pelo moderador no site
Funciona muito bem se sua coluna A não for = em branco. Em planilhas com a coluna A em branco, parece estar sobrescrevendo. Na minha coluna dtaa E não está em branco em todas as folhas. Como posso modificar o Destino da cópia para considerar a coluna A em branco em algumas planilhas?
Este comentário foi feito pelo moderador no site
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1).Selecione Sheets("Sheet" & CStr(i)).Selecione Range("A2").Selecione Range(Selection, Selection.End(xlDown)). Selecione Range(Selection, Selection) .End(xlToRight)).Selecione Selection.Cut Sheets("Sheet1").Selecione ActiveSheet.Paste Next End Sub
Este comentário foi feito pelo moderador no site
Range("A:A").SpecialCells(xlCellTypeLastCell).Selecione ActiveCell.Offset(1, 0).Selecione 'usar este código para selecionar a última célula na coluna "A" [quote] Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1) .Selecione Sheets("Sheet" & CStr(i)).Selecione Range("A2").Selecione Range(Selection, Selection.End(xlDown)).Selecione Range(Selection, Selection.End(xlToRight)).Select Selection .Cut Sheets("Sheet1").Selecione ActiveSheet.Paste Next End SubPor clopez[/ Quote]
Este comentário foi feito pelo moderador no site
O MACRO CODE FUNCIONOU TÃO BEM... FAB JOB :-)
Não há comentários postados aqui ainda
carregar mais
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