多个EXCEL文件合并到一个EXCEL文件

最新推荐文章于 2025-06-24 14:41:56 发布

凉丫丫

最新推荐文章于 2025-06-24 14:41:56 发布

阅读量2.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel 文章标签： Office

本文链接：https://blog.youkuaiyun.com/qq_28508361/article/details/85626025

Excel 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个VBA宏，用于将多个Excel文件批量合并到一个工作簿的同一个工作表中。宏通过遍历指定目录下的所有.xls文件，检查每个文件是否为空，然后将其内容复制到目标工作簿中指定的位置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

多个EXCEL文件合并到一个EXCEL文件的一个sheet中

Sub Macro1()
Dim MyPath $, M y N a m e$ , sh As Worksheet, sht As Worksheet, m&
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & “”
MyName = Dir(MyPath & “*.xls”)
Application.ScreenUpdating = False
Cells.ClearContents
Do While MyName <> “”
If MyName <> ThisWorkbook.Name Then
With GetObject(MyPath & MyName)
For Each sht In .Sheets
If IsSheetEmpty = IsEmpty(sht.UsedRange) Then
m = m + 1
If m = 1 Then
sht.[a1].CurrentRegion.Copy sh.[a1]
Else
sht.[a1].CurrentRegion.Offset(1).Copy sh.[a65536].End(xlUp).Offset(1)
End If
End If
Next
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub