✅ Combine várias planilhas em uma

Índice

Neste artigo, aprenderemos como reunir os dados de diferentes pastas de trabalho por meio do VBA no Microsoft Excel.

Vamos entender, com um exercício simples, como mesclar planilhas por meio do VBA no Microsoft Excel.

Temos 3 arquivos Excel diferentes. 2 arquivos estão em xlsx e um arquivo está em xlsm em uma pasta. Queremos agrupar os dois conjuntos de dados no arquivo Excel para manter algumas coisas em mente que em todos os dados, as linhas e colunas podem ser aumentadas e diminuídas, e também não sabemos os nomes dos arquivos do Excel e quantos arquivos existem em uma pasta .

Nesta folha, queremos combinar os dados: -

1^st Dados:-

2^WL Dados:-

3^rd Dados:-

Agora, queremos agrupar os dados em uma planilha. Precisamos seguir as etapas e códigos fornecidos abaixo: -

Pressione a tecla Alt + F11 para abrir a página VBE para escrever a macro.
Em seguida, vá para inserir guia e insira um módulo.
Escreva o código mencionado abaixo na página.

Sub Collate_Data ()

Dim FolderpathAs String, filePath As String, Filename As String

Folderpath = "E: \ Excel Tips \ New VBA topics \ HR Data \" ‘(mencionar o caminho do arquivo)

filePath = Folderpath & "* xls *"

Filename = Dir (filePath)

Dim LastrowAs Long, Lastcolumn As Long
Do While Filename ""

Workbooks.Open (Folderpath & Filename)

Lastrow = ActiveSheet.Cells (Rows.count, 1) .End (xlUp) .Row

Lastcolumn = ActiveSheet.Cells (1, Columns.count) .End (xlToLeft) .Column

Intervalo (Células (2, 1), Células (Lastrow, Última Coluna)). Copiar

Application.DisplayAlerts = False

ActiveWorkbook.Close

erow = Sheet1.Cells (Rows.count, 1) .End (xlUp) .Offset (1, 0) .Row

ActiveSheet.Paste Destination: = Worksheets ("Sheet1"). Range (Cells (erow, 1), Cells (erow, 5))

Nome do arquivo = Dir

Ciclo

Application.DisplayAlerts = True

End Sub

Explicação do código: - Em primeiro lugar, definiremos todas as variáveis que precisamos usar ao descrever o código. Em seguida, usaremos o loop Do While no código para executar o programa para todos os arquivos do Excel. Em seguida definiremos o caminho dos arquivos, em seguida definiremos a última linha e coluna na planilha Excel e a seguir definiremos o destino para colar os dados.