Как слить несколько листов с расширенным расширением в один лист с расширенным листом

Question

У меня есть 20-22 отдельных листа спредов, и я хочу объединить его в одну таблицу. Есть ли способ сделать это?

Answer 1

Чтобы объединить его в одну таблицу можно использовать следующий код VB Сначала консолидировать всю таблицу, чтобы одной папки

Sub simpleXlsMerger() 
Dim bookList As Workbook 
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object 
Application.ScreenUpdating = False 
Set mergeObj = CreateObject("Scripting.FileSystemObject") 

путь к папке изменения файлов Excel здесь

Set dirObj = mergeObj.Getfolder("Folder path (Consolidated spreadsheet folder path") 
Set filesObj = dirObj.Files 
For Each everyObj In filesObj 
Set bookList = Workbooks.Open(everyObj) 

изменение «A1 »с ссылкой на ячейку для начальной точки для всех файлов здесь Если вы используете более чем столбец IV, измените его на последний столбец Также измените столбец« A »на« A65536 »в том же столбце a s начальная точка

Range("A1:IV" & Range("A65536").End(xlUp).Row).Copy 
ThisWorkbook.Worksheets(1).Activate 

Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial 
Application.CutCopyMode = False 
bookList.Close 
Next 
End Sub