电脑知识|如何合并多个excel表，两个excel表格文件怎么合并( 三 )

End Sub第四步：运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。

如何把多个excel表格内容合并成一个操作设备：戴尔电脑
操作系统：win10
操作软件：Excel2016
1、将需合并的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文件，点击“确定”即可合并为一个Excel工作簿。
6、点击“确定”后，运行合并即可。

电脑知识|如何合并多个excel表，两个excel表格文件怎么合并( 三 )

推荐阅读

衣服拉链怎么装你学会了吗

怎么瘦肌肉腿瘦肌肉腿的建议

苹果的营养成分和药用价值苹果的营养成分及功效与作用

北京健康管理师考试准考证打印时间北京健康管理师准考证打印入口

每月都正常排卵，为什么还是没怀上？

阿谀逢迎的意思是什么阿谀逢迎是什么意思

珠海公交k7间隔多久发一班车珠海k7公交车路线时间查询

孕期有这3种感觉是胎儿要猛长信号

怀孕8周B超显示6周的胎停了吗

茶几桌布选择什么材质的好餐桌茶几什么材质的好

cpa考试大学在校可以考吗

炒豆腐渣炒豆腐渣怎么做

借机行事和一举两得有什么区别借机行事意思

亚光砖跟抛光砖的区别在哪亚光砖跟抛光砖的区别

女性防止胸部下垂女人胸部下垂的预防3措施

断奶期间能吃阿胶糕吗

蘑菇繁茂的时候周围还有什么

有机棉面料有什么优点和缺点面料棉的优缺点

鲍鱼适合什么一起煲汤孕妇鲍鱼适合什么一起煲汤

冰箱污垢怎么去除家有妙招冰箱表面污垢怎么去除