当前位置:首页 > 办公 > Excel教程 > 正文内容

如何将多个Excel文件合并成一个且保留原有数据?

访客2个月前 (08-27)Excel教程74

  如何将多个Excel文件合并成一个且保留原有数据?事实上,我们可以借用Excel宏命令来处理该操作,并且保留原有数据,建立多个Sheet页,具体操作请看下文多个Excel文件合并成一个的方法。

  如何将多个Excel文件合并成一个且保留原有数据?

  1、将需合并的Excel文件放在同一个文件夹中,并这个文件中新建一个Excel文件。

如何将多个Excel文件合并成一个且保留原有数据?

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

如何将多个Excel文件合并成一个且保留原有数据?

如何将多个Excel文件合并成一个且保留原有数据?

  3、将下面的代码拷贝进去:

  1. 01Sub sheets2one()
  2. 02'定义对话框变量
  3. 03Dim cc As FileDialog
  4. 04Set cc = Application.FileDialog(msoFileDialogFilePicker)
  5. 05Dim newwork As Workbook
  6. 06Set newwork = Workbooks.Add
  7. 07With cc
  8. 08If .Show = -1 Then
  9. 09Dim vrtSelectedItem As Variant
  10. 10Dim i As Integer
  11. 11i = 1
  12. 12For Each vrtSelectedItem In .SelectedItems
  13. 13Dim tempwb As Workbook
  14. 14Set tempwb = Workbooks.Open(vrtSelectedItem)
  15. 15tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
  16. 16newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
  17. 17tempwb.Close SaveChanges:=False
  18. 18i = i + 1
  19. 19Next vrtSelectedItem
  20. 20End If
  21. 21End With
  22. 22Set cc = Nothing
  23. 23End Sub
复制代码

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文件合并成一个且保留原有数据?

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

如何将多个Excel文件合并成一个且保留原有数据?

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

如何将多个Excel文件合并成一个且保留原有数据?

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

如何将多个Excel文件合并成一个且保留原有数据?

如何将多个Excel文件合并成一个且保留原有数据?

  以上步骤便是,合并后的Excel文档会献出多个Sheet页,我们可以很方便的切换了解。

扫描二维码推送至手机访问。

版权声明:本文章来源于互联网,由八酷网收集发布,如需转载请注明出处。

本文链接:https://www.i8ku.com/2021/1124.html

标签: excel
分享给朋友:

相关文章

LEN+SUBSTITUTE函数,计算员工参与项目数

LEN+SUBSTITUTE函数,计算员工参与项目数

如下样表: 统计每一位员工参与的项目数。如何用公式实现? 公式实现 C2单元格输入公式: =(LEN(B2)-LEN(SUBSTITUTE(B2,”、”,))+1)*(B2<>...

EXACT函数设置条件格式,标记两组数据的不同

EXACT函数设置条件格式,标记两组数据的不同

问题来源 以下两列身份证号码,绝大部分是相同的,只有小部分数据不同,且两列的排序不同。现要求标识两列中不相同的数据。 关键操作 1、选中A2:A21区域,[开始]——[条件格式]——[新建规则]: 2、选择规则类型为...

Excel数据处理小技巧 | 合并同类项并求和

Excel数据处理小技巧 | 合并同类项并求和

小牛作为部门资产管理员,每月领退大量物料 月底盘点需提交自盘结存报表,与财务ERP报表比对差异 小牛根据日常领退明细导出了以下表格 表格中同一物料有多次领退记录且数量不一致 而结存报表中同一物料只能统计一次且数量需为最...

excel筛选之(一)——数值筛选基础

excel筛选之(一)——数值筛选基础

将excel表中符合或者不符合条件的数据筛选出来,是日常工作应用用比较常见的应用,下面就来给大家系统介绍。 今天介绍的是筛选的最基础知识。 1、筛选指定某值 这是筛选中最简单的方式,比如,筛选销售量为10000的数据:...

31个单函数+7种复合函数,公式太多记不住?一招搞定!

31个单函数+7种复合函数,公式太多记不住?一招搞定!

函数太多了 很多人压根记不住 因为记不住公式 考试遇到的函数题就压根没法做 怎么办?怎么办? 难道真的要一个一个去记吗? 其实函数公式是不需要记的 因为它们通过excel2010插入公式就可以找到 举例说明 假如你抽到表...

怎么使用Excel修复工具解决Excel打不开的问题?

怎么使用Excel修复工具解决Excel打不开的问题?

  如果excel重要文件突然出现无法打开的现象,在不损坏excel内容的前提下有什么办法可以解决吗?面对受损的excel文件,又不想重新再制作一份excel文件,那可以试试用exce...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。