如何将excel工作表合并(excel工作表合在一起)
2023-05-20 19:10:37
•
来源:
导读 大家好,今天小六子来为大家解答以下的问题,关于如何将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。
本文分享完毕,希望对你有所帮助。
免责声明:本文由用户上传,如有侵权请联系删除!
标签: