多个工作簿里的表格合并到一个工作簿中,在日常工作中应该经常碰到吧。
怎么合并会比较快又省事?
当然,肯定不是复制粘贴,要合并的工作簿多的情况下,这种方式很耗力气。
不妨,试试用VBA代码法。
今天来讲讲如何利用VBA代码法快速将多个工作簿合并成一个工作簿。
具体操作步骤:
1、新建一个工作簿,并为其命名,本例中我们将其命名为【工资存放工作薄】;
2、打开新建的此工作簿,即【工资存放工作薄】,并在里面任意一个工作表标签上点击右键—【查看代码】;
3、然后在打开的VBA编辑窗口中粘贴以下代码:
Sub 多个工作簿合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel??(.xlsx),.xlsx