汇总多个工作簿合并到一个工作簿

  • A+
所属分类:财经

近日要核算年终奖金,涉及到当年出勤情况,钉钉考勤不能按照年统计,所以只能按月导出,进行汇总,在网络上收集汇总比较快捷大方法:

第一步:多个工作簿合并到一个工作簿

在由多个工作簿合并到一个工作表之前,我们先把多个工作簿合并到一个工作簿。

1、新建一个工作薄,将其命名为合并后的名字,例如叫做:财税工作簿。
2、打开此工作簿:“财税工作簿”
3、在“财税工作簿”下任一个工作表标签上点击右键,选择“查看代码”或者ALT+F11打开程序编辑器

查看代码.png()

4、在打开的VBA编辑窗口中粘贴以下代码:

Sub 财税工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub

5、关闭该VBA编辑窗口
6、在Excel中,开发工具---宏,选“工作薄间工作表合并”,然后“执行”。

开发工具-宏.png
执行“工作薄间工作表合并”.png

7、在打开的对话窗口中,选择你要合并的多个工作薄。
8、等待运行。而后就OK了。
9、打开名为“汇总工作簿”的Excel文件,我们就能看到多个其他工作簿以多个Sheet页的形式合并到了这一个工作簿中。

 

  • 赞助本站
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: