合并多个Excel到一个sheet的方法.docx

合并多个Excel到一个sheet的方法.docx

《合并多个Excel到一个sheet的方法.docx》由会员分享，可在线阅读，更多相关《合并多个Excel到一个sheet的方法.docx（1页珍藏版）》请在冰点文库上搜索。

1.先把所有要合并的EXCEL放到同一文件夹里，

2.在当前文件夹里新建一个EXCEL，

3.打开新建的EXCEL，在工作表标签sheet上点击右键，选择“查看代码”，

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

EndIf

Next

.CloseFalse

EndWith

EndIf

MyName=Dir

Loop

Application.ScreenUpdating=True

EndSub