Excel多个表格合并为一个表格操作

Excel快速合并表格代码（仅限于office）

多个Excel表格合并为一张工作表

在Excel界面按住alt+f11-视图-代码窗口-复制粘贴-运行

Sub sheets2one（）

　　‘定义对话框变量

　　Dim cc As FileDialog

　　Set cc = Application.FileDialog（msoFileDialogFilePicker）

　　Dim newwork As Workbook

　　Set newwork = Workbooks.Add

　　With cc

　　If .Show = -1 Then

　　Dim vrtSelectedItem As Variant

　　Dim i As Integer

　　i = 1

　　For Each vrtSelectedItem In .SelectedItems

　　Dim tempwb As Workbook

　　Set tempwb = Workbooks.Open（vrtSelectedItem）

　　tempwb.Worksheets（1）.Copy Before：=newwork.Worksheets（i）

　　newwork.Worksheets（i）.Name = VBA.Replace（tempwb.Name， “.xls”， “”）

　　tempwb.Close SaveChanges：=False

　　i = i + 1

　　Next vrtSelectedItem

　　End If

　　End With

　　Set cc = Nothing

　　End Sub

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑，如果对您有帮助欢迎转发分享！

你可能对这些文章感兴趣：

• Excel表格十大函数(Excel表格函数公式出现错误怎么办?)
• iphone应用图标大小要怎么调整？(iPhone应用图标大小)
• 有办法了！批量删除多个Word页眉页脚
• 人像摆拍姿势和抓拍技巧，学会“安排”照片，摄影新手也能拍美照
• 调整干部开启，如何找准自己的位置？以下几点值得借鉴
• Excel表格办公—-公式与结果共同显示的方法
• 7月1日前务必身份验证，否则将中断开发者权益！（附验证指南）
• MacOS Catalina 10.15第三方软件文件提示已损坏解决办法
• iOS 12.3 ~ 13.2.2 越狱工具发布，这么快？
• C盘莫名其妙就红了，流氓软件怎么找根目录删除？我来教你解决