当前位置：新励学网 > 秒知问答 > 怎么样把Excel多张表格合成一张

怎么样把Excel多张表格合成一张

发表时间：2024-08-21 18:10:40 来源：网友投稿

将这些Excel文件放到一个文件夹（只有这些Excel文件，且若打开某一文件，数据就能看见——即不用点其他sheet），建一新Excel，也存到该文件夹。

仅打开该新Excel，按Alt+F11，左边窗口右键点，插入模块，在右边窗口粘贴如下代码：Sub Find() Application.ScreenUpdating = False Dim MyDir As String MyDir = ThisWorkbook.Path "" ChDrive Left(MyDir, 1)'find all the excel files ChDir MyDir Match = Dir$("") Do If Not LCase(Match) = LCase(ThisWorkbook.Name) Then Workbooks.Open Match, 0 'open ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet Windows(Match).Activate ActiveWindow.Close Match = Dir$ End If Loop Until Len(Match) = 0 Application.ScreenUpdating = True End Sub按F5运行此宏，这许文件copy在一个文件里了。然后再怎么合并，请指示 :)

免责声明：本站发布的教育资讯（图片、视频和文字）以本站原创、转载和分享为主，文章观点不代表本网站立场。

如果本文侵犯了您的权益，请联系底部站长邮箱进行举报反馈，一经查实，我们将在第一时间处理，感谢您对本站的关注！