文件名称：批量合并表格sheet的代码
文件大小：1KB
文件格式：TXT
更新时间：2022-03-05 15:55:27
vba
Excel批量合并多个sheet的代码 Sub 多表合并() Dim f$, p$, a, s Application.ScreenUpdating = False '屏幕刷新关闭 Sheet1.UsedRange.Offset(1).ClearContents '当前表已用区域整体下移1行 p = ThisWorkbook.Path & "\" f = Dir(p & "*.xls") Do While Len(f) If f <> ThisWorkbook.Name Then With workbooks.open(p & f) '打开文件，以下是目标文件的读取 a = .Sheets(1).Range("A2:K" & .Sheets(1).[a65536].End(3).Row) '读取范围（A2：G最大范围） s = Split(f, ".")(0) .Close False '关闭目标文件 End With With Sheet1 '开始对活动工作表进行操作 .Range("A" & .[a65536].End(3).Row + 1).Resize(UBound(a), UBound(a, 2)) = a '粘贴内容 .Range("L" & .[l65536].End(3).Row + 1).Resize(UBound(a)).Value = s 'H列进行文件名写入 End With End If f = Dir Loop Application.ScreenUpdating = True '屏幕刷新打开 End Sub