文章来源:网络作者:凉月发布时间:2026-05-23 11:23:55
如果我们需要将多个Excel表格文件合并成一个该怎么做呢?一个Excel文件中可以建立多个表格,但是如果一个文件就一个表格,怎么才能把他们合并起来呢?当然我们也可以打开表格一个一个的复制到一个excel文件中,但是如果表格太多的话复制起来是很麻烦的,下面小编就详细的为大家介绍快速合并多个excel表格的方法。
操作方法:
1、将需合并的Excel文件放在同一个文件夹中,并这个文件中新建一个Excel文件。

2、打开新建的Excel文件,按 Alt + F11 键,打开宏,选择视图→代码窗口。


3、将下面的代码拷贝进去:
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

4、点击运行选项运行宏命令。

5、之后弹出选择对话框,选择要批量合并的Excel名,确定即可。

6、程序运行完毕后,会自动生成一个工作簿,工作簿内包含所有需合并的Excel文件,将工作簿另存为即可。


以上就是快速合并多个表格的方法了。合并后的Excel文档会出现多个Sheet页,合并之后我们只需要在一个excel界面内即可完成不同表格之间的切换了。

梦想三国之勇往直前0.1折

炼仙传说0.1折
仙侠01折
充值享永久0.1折福利,登录每日领2000免费代金券;;

不可思议的刀剑与魔法0.1折
卡牌01折
进游立送真充卡,开局自带“钞能力”

逍遥浪人
卡牌
1折送绝版皮肤 全场充值永久1折,创角即送“黑神话”孙悟空绝版皮肤。

奇幻梦旅人
休闲
当个无忧无虑的旅人,尽情享受这个童话世界吧!

玄影0.1折
仙侠01折
全场充值永享0.1折!

点击冒险之旅(0.1折特级行...
卡牌01折
上线福利:登录即送创角大礼包,召唤顶级战力!

天神赵子龙0.1折
卡牌01折
全新0.1折放置卡牌,打破传统三国叙事,解锁新颖剧情,每日送1000代金;

九州异兽记0.1折
开箱01折
1分钱买SSR异兽

龙魂魔法0.1折
185传奇996传奇
上线即送:自动拾取、自动回收、切割+222、老男孩·称号!

魔药杂货铺什么时候出 公测上线时...