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

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

建一个宏－“个人宏工作簿”，内容如下：
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!合并文件”宏。

1、打开需要编辑的excel文档。工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。 2、右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。 3、点击菜单插入-模块 在弹出的模块对话框中 输入以下代码： 4、单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕” 5、返回excel工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了！不信 可以对照查看图中的修改日期。

要用VBA 解决， 讲清楚 要求 1052974911@qq.com

右击分页-移动或复制工作表-然后选择移动到你要复制到的文件就完成了