Ir para o conteúdo principal

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?

Office Tab 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 do Office Tab é mais poderosa e 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 Office Tab economizará muito tempo.

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

Saiba 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 Próximo 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 Próximo para ir para a última etapa do assistente.
doc combinar 7

4. Nesta etapa, especifique as configurações conforme necessário. Então clique Acabamento.
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, também é criada uma planilha mestra chamada Kutools for Excel, que lista 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: 200 + ferramentas úteis e úteis, simplificando as tarefas complicadas do Excel com apenas alguns cliques.

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

300 ferramentas avançadas do Kutools para 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.

Avaliação gratuita de 30 dias com todos os recursos, reembolso de 30 dias sem motivo.

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 Próximo.
doc combinar 13

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

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

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

6. Na última etapa do assistente, especifique as opções de configuração conforme necessário. Então clique Acabamento.
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: 200 + ferramentas úteis e úteis, simplificando as tarefas complicadas do Excel com 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 Office 365


guia de 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 se acelerar com o Kutools para Excel!


Comments (168)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a system that generates an excel file everyday. The daily file name is of format "<filename-12282021>". The 12282021 is the timestamp and it changes everyday creating a new excel file each day. I want to create a Master Workbook and then append the contents of the daily excel file into that master workbook. How can I automate it so it happens by itself everyday and the master file is update with contents of the daily file.   Thank you.
This comment was minimized by the moderator on the site
Hi rd2022, sorry that I have no idea to solve your problem so far. You can go to our forum https://www.extendoffice.com/forum/excel.html to leave this message, maybe some users have the same problem and has been solved.
This comment was minimized by the moderator on the site
In combining shhets I want to add one extra column in combined sheet as ShhetName
Can you suggest ?
This comment was minimized by the moderator on the site
The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
This comment was minimized by the moderator on the site
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
This comment was minimized by the moderator on the site
The VBA code works fine but I want the data to be merged horizontally(side by side).
Hope you can help.
This comment was minimized by the moderator on the site
Hi,


Great Code and for the most part it works fantastically well.


Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.

In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.

To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.


looking forward to hearing from you.
This comment was minimized by the moderator on the site
Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
This comment was minimized by the moderator on the site
Hi,

Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?


Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?


Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.


Thanks in advance for your help
This comment was minimized by the moderator on the site
Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
This comment was minimized by the moderator on the site
This VBA code is an absolute lifesaver. Thank you!!
This comment was minimized by the moderator on the site
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
This comment was minimized by the moderator on the site
Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.

If you want to merge all rows from all worksheets, just use the code:

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.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub
This comment was minimized by the moderator on the site
Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
This comment was minimized by the moderator on the site
i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
This comment was minimized by the moderator on the site
Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us to describe the problem with more details, our support will handle the problem for you.
This comment was minimized by the moderator on the site
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
This comment was minimized by the moderator on the site
Thanks for your support, Andrew, I am glad that the macro can help you.
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