表格的合并怎么弄

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