如何将若干多个EXCEL表格合并到一张EXCEl中的不同sheet页上？请大师指点

Question

如题所述

Answer 1

建一个宏－“个人宏工作簿”，内容如下：
Sub
合并文件()
Range("A1").Select
Range(Selection,
ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Workbooks.Open
Filename:="E:\合表.xlsx"
Selection.Insert
Shift:=xlDown
Application.CutCopyMode
=
False
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWorkbook.Save
Application.Run
"PERSONAL.XLSB!合并文件"
End
Sub
新建“E:\合表.xlsx”空白表。
打开所有需要合并的文件（可一批批进行），运行“PERSONAL.XLSB!合并文件”宏。