如何将若干多个EXCEL表格合并到一张EXCEl中的不同sheet页上？请大师指点
答案:4 悬赏:20 手机版
解决时间 2021-03-11 21:56
- 提问者网友：鐵馬踏冰河
- 2021-03-11 06:00
如何将若干多个EXCEL表格合并到一张EXCEl中的不同sheet页上？请大师指点
最佳答案
- 五星知识达人网友：酒者煙囻
- 2021-03-11 06:10
建一个宏－“个人宏工作簿”，内容如下：
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!合并文件”宏。
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楼网友：老鼠爱大米
- 2021-03-11 07:24
1、打开需要编辑的excel文档。工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。
2、右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。
3、点击菜单插入-模块 在弹出的模块对话框中 输入以下代码：
4、单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕”
5、返回excel工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了！不信 可以对照查看图中的修改日期。
- 2楼网友：英雄的欲望
- 2021-03-11 07:01
要用VBA 解决，
讲清楚 要求 1052974911@qq.com
- 3楼网友：逃夭
- 2021-03-11 06:44
右击分页-移动或复制工作表-然后选择移动到你要复制到的文件就完成了
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯