合并多个Excel到一个sheet的方法Word下载.docx
- 文档编号:3098092
- 上传时间:2023-05-01
- 格式:DOCX
- 页数:1
- 大小:12.33KB
合并多个Excel到一个sheet的方法Word下载.docx
《合并多个Excel到一个sheet的方法Word下载.docx》由会员分享,可在线阅读,更多相关《合并多个Excel到一个sheet的方法Word下载.docx(1页珍藏版)》请在冰点文库上搜索。
4.在打开的VBA编辑窗口中粘贴以下代码:
5.点击“运行”,选择“运行子过程/用户窗体”就OK了。
SubMacro1()
DimMyPath$,MyName$,shAsWorksheet,shtAsWorksheet,m&
Setsh=ActiveSheet
MyPath=ThisWorkbook.Path&
"
\"
MyName=Dir(MyPath&
*.xls"
)
Application.ScreenUpdating=False
Cells.ClearContents
DoWhileMyName<
>
"
IfMyName<
ThisWorkbook.NameThen
WithGetObject(MyPath&
MyName)
ForEachshtIn.Sheets
IfIsSheetEmpty=IsEmpty(sht.UsedRange)Then
m=m+1
Ifm=1Then
sht.[a1].CurrentRegion.Copysh.[a1]
Else
sht.[a1].CurrentRegion.Offset
(1).Copysh.[a65536].End(xlUp).Offset
(1)
EndIf
Next
.CloseFalse
EndWith
MyName=Dir
Loop
Application.ScreenUpdating=True
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 合并 Excel 一个 sheet 方法