原创力文档- 1、本文档共1页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
excel 中如何将相同格式的多个不同 excel 文件合并为一张表
【问题描述】：日常工作中采集的数据经常会是大量格式相同的 Excel 表格。（如要求多个单位上交表格，最后需要汇总这些表格的内容），如何实现自动化合并呢
【解决方案】：
将所有格式相同的 Excel 表格保存到一个文件夹内；
在文件夹内新建一个 Excel 工作表，命名为“汇总表”；
打开汇总表，按“ Alt + F11”打开 VBA开发环境，双击工程资源管理器里面的 sheet1(sheet1), 在右侧的代码区编写如下代码：
Sub 合并当前目录下所有工作簿的全部工作表 () Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String Dim G As Long
False MyPath =
MyName =
Dir(MyPath
&
"\"
& "*.xls")
AWbName=
Num =
0
ini
=
0
Do
While
MyName <>
""
If
MyName <>
AWbNameThen
Set
Wb
=
(MyPath &
"\"
&
MyName)
Num
=
Num +
1
With
Workbooks(1).ActiveSheet
If
ini
=
0
Then
(1).Range(1).Cells(1,
1),(1).Cells(1,(1).
.Cells(1,
1)
ini=1
End
If
For
G=1 To
(G).Range(G).Cells(2,1),(G).Cells(G). .Cells(.Range("A65536").End(xlUp).Ro w+1,1)
Next
WbN=WbN& Chr(13) &
False
End With
End If
MyName=Dir
Loop
Range("A1").Select
= True
MsgBox " 共合并了 " & Num & " 个工作薄下的全部工作表。如下：
" & Chr(13) & WbN, vbInformation, " 提示 "
End Sub
4. 运行代码，系统会自动将所有 Excel 表格合并到“汇总表”中
文档评论（0）