Комбинирайте няколко работни листа в един

В тази статия ще научим как да сглобяваме данните от различни работни книги чрез VBA в Microsoft Excel.

Нека разберем с едно просто упражнение как да обединим електронния лист чрез VBA в Microsoft Excel.

Имаме 3 различни Excel файла. 2 файла са към xlsx и един файл към xlsm в папка. Искаме да съпоставим и двата набора с данни в Excel файл, за да имаме предвид няколко неща, че във всички данни редовете и колоните могат да се увеличават и намаляват, а също така не знаем имената на файловете на Excel и колко файлове има в папка .

В този лист искаме да комбинираме данните:-

1^ул Данни:-

2^nd Данни:-

3^rd Данни:-

Сега искаме да съберем данните в лист. Трябва да следваме дадените по-долу стъпки и код:-

Натиснете клавиша Alt+F11, за да отворите страницата VBE, за да напишете макроса.
След това отидете на раздела за вмъкване и поставете модул.
Напишете по -долу споменатия код на страницата.

Sub Collate_Data ()

Dim FolderpathAs String, filePath As String, Filename As String

Folderpath = "E: \ Съвети на Excel \ Нови VBA теми \ HR данни \" '(споменете пътя на файла)

filePath = Път на папката & "*xls*"

Име на файл = Dir (filePath)

Dim LastrowКолкото е дълга, последната колона е дълга
Do While Име на файла ""

Работни книги. Отворете (Път на папката и име на файл)

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

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

Обхват (клетки (2, 1), клетки (последна колона, последна колона)). Копиране

Application.DisplayAlerts = False

ActiveWorkbook.Close

erow = Sheet 1. Клетки (Rows.count, 1) .End (xlUp) .Offset (1, 0).

ActiveSheet.Paste Destination: = Работни листове ("Sheet1"). Диапазон (клетки (erow, 1), Cells (erow, 5))

Име на файл = Dir

Цикъл

Application.DisplayAlerts = Вярно

End Sub

Обяснение на кода: - Първо, ще дефинираме всички променливи, които трябва да използваме, докато описваме кода. След това ще използваме цикъла Do While в кода, за да стартираме програмата за всички Excel файлове. След това ще дефинираме пътя на файловете и след това ще дефинираме последния ред и колона в Excel лист и след това ще дефинираме дестинацията за поставяне на данните.