Como combinar várias pastas de trabalho em uma pasta de trabalho mestre no Excel?
Você já ficou preso quando teve que combinar várias pastas de trabalho em uma pasta de trabalho mestre no Excel? A coisa mais terrível é que as pastas de trabalho que você precisa combinar contêm várias planilhas. E como combinar apenas as planilhas especificadas de várias pastas de trabalho em uma única pasta de trabalho? Este tutorial demonstra vários métodos úteis para ajudá-lo a resolver o problema passo a passo.
- Método A: Combinar várias pastas de trabalho em uma pasta de trabalho com a função Mover ou Copiar
- Método B: Combinar várias pastas de trabalho ou planilhas especificadas de pastas de trabalho em uma pasta de trabalho mestre com VBA
- Método C: Combine facilmente várias pastas de trabalho ou planilhas especificadas de pastas de trabalho em uma única pasta de trabalho
Combinar várias pastas de trabalho em uma pasta de trabalho com a função Mover ou Copiar
Se houver apenas algumas pastas de trabalho que precisam ser combinadas, você pode usar o comando Mover ou Copiar para mover ou copiar manualmente as planilhas da pasta de trabalho original para a pasta de trabalho mestre.
1. Abra as pastas de trabalho que você deseja mesclar em uma pasta de trabalho mestre.
2. Selecione as planilhas na pasta de trabalho original que você deseja mover ou copiar para a pasta de trabalho mestre.
Notas:
1). Você pode selecionar várias planilhas não adjacentes segurando a tecla Ctrl e clicando nas abas das planilhas uma por uma.
2). Para selecionar várias planilhas adjacentes, clique na primeira aba de planilha, mantenha pressionada a tecla Shift e depois clique na última aba de planilha para selecioná-las todas.
3). Você pode clicar com o botão direito do mouse em qualquer aba de planilha, clique em Selecionar Todas as Planilhas no menu de contexto para selecionar todas as planilhas da pasta de trabalho ao mesmo tempo.
3. Após selecionar as planilhas necessárias, clique com o botão direito na aba da planilha e, em seguida, clique em Mover ou Copiar no menu de contexto. Veja a captura de tela:
4. Em seguida, a caixa de diálogo Mover ou Copiar aparecerá, no menu suspenso Para livro, selecione a pasta de trabalho mestre para onde você deseja mover ou copiar as planilhas. Selecione mover para o final na caixa Antes da planilha, marque a caixa Criar uma cópia e, finalmente, clique no botão OK.
Então você pode ver as planilhas de duas pastas de trabalho combinadas em uma só. Repita os passos acima para mover planilhas de outras pastas de trabalho para a pasta de trabalho mestre.
Combinar várias pastas de trabalho ou planilhas especificadas de pastas de trabalho em uma pasta de trabalho mestre com VBA
Se houver várias pastas de trabalho que precisam ser mescladas em uma só, você pode aplicar os seguintes códigos VBA para alcançar isso rapidamente. Por favor, siga os passos abaixo.
1. Coloque todas as pastas de trabalho que você deseja combinar em um único diretório.
2. Inicie um arquivo do Excel (esta pasta de trabalho será a pasta de trabalho mestre).
3. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo, depois copie o código VBA abaixo na janela Módulo.
Código VBA 1: Mesclar várias pastas de trabalho do Excel em uma só
Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
Notas:
1. O código VBA acima manterá os nomes das planilhas das pastas de trabalho originais após a mesclagem.
2. Se você quiser distinguir quais planilhas na pasta de trabalho mestre vieram de onde após a mesclagem, aplique o código VBA 2 abaixo.
3. Se você quiser combinar apenas planilhas especificadas das pastas de trabalho em uma pasta de trabalho mestre, o código VBA 3 abaixo pode ajudar.
Nos códigos VBA, “C:\Users\DT168\Desktop\KTE\” é o caminho da pasta. No código VBA 3, "Sheet1,Sheet3" são as planilhas especificadas das pastas de trabalho que você irá combinar em uma pasta de trabalho mestre. Você pode alterá-los conforme suas necessidades.
Código VBA 2: Mesclar pastas de trabalho em uma só (cada planilha será nomeada com o prefixo de seu nome de arquivo original):
Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Código VBA 3: Mesclar planilhas especificadas de pastas de trabalho em uma pasta de trabalho mestre:
Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next
xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"
xArr = Split(xStrName, ",")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
4. Pressione a tecla F5 para executar o código. Então todas as planilhas ou planilhas especificadas das pastas de trabalho em uma determinada pasta serão combinadas em uma pasta de trabalho mestre de uma vez.
Combine facilmente várias pastas de trabalho ou planilhas especificadas de pastas de trabalho em uma única pasta de trabalho
Felizmente, o utilitário Combinar Pasta de Trabalho do Kutools para Excel facilita muito a mesclagem de várias pastas de trabalho em uma só. Vamos ver como essa função funciona ao combinar várias pastas de trabalho.
Antes de aplicar o Kutools para Excel, por favor, faça o download e instale-o primeiro.
1. Crie uma nova pasta de trabalho e clique em Kutools Plus > Combinar. Em seguida, uma caixa de diálogo aparece para lembrá-lo de que todas as pastas de trabalho combinadas devem ser salvas e o recurso não pode ser aplicado a pastas de trabalho protegidas, clique no botão OK.
2. No assistente Combinar Planilhas, selecione a opção Combinar várias planilhas de pastas de trabalho em uma pasta de trabalho e, em seguida, clique no botão Próximo. Veja a captura de tela:
3. Na caixa de diálogo Combinar Planilhas - Passo 2 de 3, clique em Adicionar > Arquivo ou Pasta para adicionar os arquivos do Excel que você deseja mesclar em um só. Após adicionar os arquivos do Excel, clique no botão Concluir e escolha uma pasta para salvar a pasta de trabalho mestre. Veja a captura de tela:
Agora todas as pastas de trabalho estão mescladas em uma só.
Comparado com os dois métodos acima, o Kutools para Excel tem as seguintes vantagens:
- 1) Todas as pastas de trabalho e planilhas são listadas na caixa de diálogo;
- 2) Para as planilhas que você deseja excluir da mesclagem, basta desmarcá-la;
- 3) As planilhas em branco são excluídas automaticamente;
- 4) O nome do arquivo original será adicionado como prefixo ao nome da planilha após a mesclagem;
- Para mais funções deste recurso, por favor visite aqui.
Se você deseja experimentar este utilitário gratuitamente (30 dias), clique para baixá-lo e, em seguida, vá aplicar a operação de acordo com as etapas acima.
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!