Excel批量合并多个sheet的代码 Sub 多表合并() Dim f$, p$, a, s Application.ScreenUpdating = False '屏幕刷新关闭 Sheet1.UsedRange.Offset(1).ClearContents '当前表已用区域整体下移1行 p = ThisWorkbook.Path & "\" f = Dir(p & "*.xls")