很多Excel 表整理成一个Excel表中的很多分页,有没有捷径啊?

发布网友 发布时间：2022-04-25 00:39

我来回答

共6个回答

热心网友 时间：2023-10-18 00:02

绝对可以, 亦是唯一办法, 编写VBA程序, 运行宏
方法是:
先将全部成积的Excel 工作簿开启, 将其它没有关系的Excel全部关闭
将以下的VBA贴在任何1个Excel 工作簿的模块上, 执行宏
Sub combinesheet()
Dim xxx(1 To 200)
x = Workbooks.Count
For t = 1 To x
xxx(t) = Workbooks(t).Name
Next
Workbooks.Add
ActiveWorkbook.SaveAs "Combine Sheets"
For tt = 1 To x
Workbooks(xxx(tt)).Activate
Worksheets(1).Select
ActiveSheet.Copy Before:=Workbooks("Combine Sheets").Sheets(tt)
ActiveSheet.Name = xxx(tt)
Next
End Sub
执行宏(需时约几秒)完毕后, 会见到1个名为"Combine Sheets"的工作簿出现, 所有成积的工作表都全在里面, 所有工作表的名称亦改成为对应的工作簿名称
注意: 上述VBA可应付 1 至 200 个Excel, 所有成积工作表一定要放在最左(即第1张)的位置
请细心测试!

参考资料：原创

热心网友 时间：2023-10-18 00:02

开一百个XLS文件我是没试过。

热心网友 时间：2023-10-18 00:03

里面好象有个"自动"合并的功能 ,你找找看.
可以按照自定的格式合并

热心网友 时间：2023-10-18 00:03

可以批量完成的.

我就做过比这复杂的

热心网友 时间：2023-10-18 00:04

只能复制，粘贴了！！！100多张不用多久的。

热心网友 时间：2023-10-18 00:05

不会..