找一个空表 右击sheet1查看代码 在代码中输入
Sub 工作薄间工作表合并()
Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Sub
errhadler:MsgBox Err.DescriptionEnd Sub
然后在弹出的对话框中选中所有你需要合并的表格
这是我收藏的一个合并工作簿的方法不知道是否能帮到你
温馨提示:答案为网友推荐,仅供参考