如何将多个 excel 点差 sheet 合并为单个点差 sheet

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 列，请将其更改为最新的列同时将 "A65536" 上的 "A" 列更改为与起点相同的列

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

如何将多个 excel 点差 sheet 合并为单个点差 sheet

How to merge multiple excel spread sheet in to single spread sheet

excel-2013