个人资料
ronazhuang
博客等级:
博客积分:0博客访问:26,282关注人气:4获赠金笔:0支赠出金笔:0支荣誉徽章:
相关博文
谁看过这篇博文
加载中…
1.把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。如图所示:
2.打开新建的excel表格,在sheet上面右击→查看源代码
3.页面跳转进入VB编辑器,复制下面代码只编辑器内,然后点击运行
4.合并代码如下:
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xlsx")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName