excel工作表很多（excel工作表合在一起）

您好,现在瑶瑶来为大家解答以上的问题。excel工作表很多，excel工作表合在一起相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、Sub 合并工作表() Dim MyPath$, MyName$ Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path & "" MyName = Dir(MyPath & "*.xls") On Error Resume Next Do While MyName <> "" If MyName <> ***.Name Then With GetObject(MyPath & MyName) .Sheets("newSheet").Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) End With End If MyName = Dir Loop Application.ScreenUpdating = TrueEnd Sub。

本文就为大家分享到这里，希望小伙伴们会喜欢。