Como combinar vários livros de trabalho num único livro mestre no Excel?
Já alguma vez ficou bloqueado ao ter de combinar vários livros num livro mestre no Excel? O pior é quando os livros que precisa de combinar contêm múltiplas folhas de cálculo. E como combinar apenas as folhas especificadas de vários livros num único livro? Este tutorial demonstra vários métodos úteis para o ajudar a resolver este problema passo a passo.
Combinar vários livros num único livro com a função Mover ou Copiar
Se forem apenas alguns livros a combinar, pode utilizar o comando Mover ou Copiar para transferir manualmente as folhas do livro original para o livro mestre.
1. Abra os livros que pretende combinar num livro mestre.
2. Selecione, no livro original, as folhas de cálculo que pretende mover ou copiar para o livro mestre.
Notas:
1). Pode selecionar várias folhas não adjacentes mantendo premida a tecla Ctrl e clicando nas guias de folha uma a uma.
2). Para selecionar várias folhas adjacentes, clique na primeira aba da folha, mantenha premida a tecla Shift e, em seguida, clique na última aba da folha para selecioná-las todas.
3). Pode clicar com o botão direito do rato em qualquer aba da folha e, no menu de contexto, clicar em Selecionar Todas as Folhas para selecionar todas as folhas de cálculo do livro simultaneamente.
3. Após selecionar as folhas necessárias, clique com o botão direito do rato na aba da folha e, em seguida, clique em Mover ou Copiar no menu de contexto. Veja a imagem:
4. Em seguida, aparece a caixa de diálogo Mover ou Copiar, onde, na lista pendente Para livro, deve selecionar o livro mestre para o qual irá mover ou copiar as planilhas. Selecione Mover para o fim na caixa Antes da folha, marque a caixa Criar uma cópia e, por fim, clique no botão OK.
Em seguida, verá as folhas dos dois livros combinadas num só. Repita os passos acima para mover folhas de outros livros para o livro mestre.
Combinar vários livros ou folhas especificadas de livros num livro mestre com VBA
Se tiver vários livros para combinar num só, pode utilizar os seguintes códigos VBA para o fazer rapidamente. Siga estes passos:
1. Coloque todos os livros que pretende combinar numa única pasta.
2. Abra um ficheiro do Excel (este livro será o livro mestre).
3. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic para Aplicações. Na janela do Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo e copie o código VBA seguinte para a janela do Módulo.
Código VBA 1: Combinar vários Pasta de trabalho do Excel num único
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 SubNotas:
1. O código VBA acima preserva os nomes das folhas dos livros originais após a combinação.
2. Se pretender distinguir de onde vieram as folhas no livro mestre após a combinação, aplique o seguinte código VBA 2.
3. Se pretender apenas combinar folhas especificadas dos livros num livro mestre, o seguinte código VBA 3 pode ajudar.
Nos códigos VBA, «C:\Users\DT168\Desktop\KTE\» é o caminho do ficheiro. No código VBA 3, "Folha1,Folha3" são as folhas de cálculo especificadas dos livros que serão combinadas num livro mestre. Pode ajustá-las conforme as suas necessidades.
Código VBA 2: Mesclar Workbooks num único livro (cada folha de cálculo será nomeada com o prefixo do respetivo nome de ficheiro 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: Combinar folhas de cálculo especificadas de livros num livro 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 Sub4. Prima a tecla F5 para executar o código. Assim, todas as folhas ou as folhas especificadas dos livros na pasta indicada serão combinadas num livro mestre de imediato.
Combinar facilmente vários livros ou folhas especificadas de livros num único livro
Felizmente, a utilidade Combinar livros do Kutools para Excel facilita bastante a fusão de vários livros num só. Vejamos como utilizar esta funcionalidade para combinar vários livros.
Antes de aplicar o Kutools para Excel, por favor, descarregue e instale-o primeiro.
1. Crie um novo livro e clique em KUTOOLS PLUS > Combinar. Em seguida, surge uma caixa de diálogo a lembrar que todos os livros a combinar devem estar guardados e que a funcionalidade não pode ser aplicada a livros protegidos; clique no botão OK.
2. No assistente Consolidar Planilhas, selecione a opção Copiar Planilhas de Várias Pastas de Trabalho para uma Pasta de Trabalho e, em seguida, clique no botão Seguinte. Veja a imagem:
3. Na caixa de diálogo Consolidar Planilhas – Passo 2 de 3, clique em Adicionar > Ficheiro ou Pasta para adicionar os ficheiros do Excel que pretende combinar num único documento. Após adicionar os ficheiros do Excel, clique no botão Concluir e escolha uma pasta para guardar o livro mestre. Veja a imagem:
Agora todos os livros foram combinados num só.
Comparado com os dois métodos anteriores, o Kutools para Excelapresenta as seguintes vantagens:
- 1) Todos os livros e folhas de cálculo estão listados na caixa de diálogo;
- 2) Para as folhas que pretende excluir da combinação, basta desmarcá-las;
- 3) As Planilha em Branco são excluídas automaticamente;
- 4) O nome do ficheiro original será adicionado como prefixo ao nome da folha após a combinação;
- Para mais funcionalidades desta característica, consulte aqui.
Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos