NAXS网

首页 > excel / 正文

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

admin 2020-02-19 excel 评论

  如何将多个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 FileDialogSet cc = Application.FileDialog(msoFileDialogFilepicker)Dim newwork As WorkbookSet newwork = Workbooks.AddWith ccIf .Show = -1 ThenDim vrtSelectedItem As VariantDim i As Integeri = 1For Each vrtSelectedItem In .SelectedItemsDim tempwb As WorkbookSet tempwb = Workbooks.Open(vrtSelectedItem)tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")tempwb.Close SaveChanges:=Falsei = i + 1Next vrtSelectedItemEnd IfEnd WithSet cc = NothingEnd Sub

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

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

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

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

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

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

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

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

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

推荐您阅读更多有关于“Excel”的文章

  • excel中count函数的用法(count函数的用法) excel

    excel中count函数的用法(count函数

    excel中count函数的用法(count函数的用法)Excel中,COUNT函数是一个统计数字个数的函数,统计时将只统计数字、日期和代表数字的文本(如:用引号引起的数字 "1")。不会统计空值、文本...

    163 2022-01-05
  • excelcountif函数怎么使用(COUNTIF函数用法大全) excel

    excelcountif函数怎么使用(COUNTIF

    excelcountif函数怎么使用(COUNTIF函数用法大全)COUNTIF函数用于统计满足某个条件的单元格的数量,其基本用法为:COUNTIF(统计区域,指定的条件)如下图所示,要统计A列有几个5,可以使...

    201 2022-01-05
  • excel乘法公式函数名称(excel做乘法表公式) excel

    excel乘法公式函数名称(excel做乘法

    excel乘法公式函数名称(excel做乘法表公式)excel是我们工作中很常用的一款表格制作工具,它不仅仅只是用来制作表格,它还能对表格中的数据进行处理(如:排序、运算等)。今天小编要介...

    80 2021-12-27
  • excel表格怎么求和一列(excel表列求和) excel

    excel表格怎么求和一列(excel表列求

    excel表格怎么求和一列(excel表列求和)打开Excel表格,选择一列数字。2点击上方“求和”按钮,求和结果即会显示在数字下方。3还可选中一列数字,选择后可看到表格下方有求和值,也有...

    44 2021-12-27
  • excel百分比怎么做柱状图(怎么做属于百分比的柱状图) excel

    excel百分比怎么做柱状图(怎么做属

    excel百分比怎么做柱状图(怎么做属于百分比的柱状图)首先,打开所需要处理数据的Excel表格,一列百分比数据下方的单元格中输入“100%”。2然后,使用鼠标的左键,将包含100%的单元格...

    194 2021-12-27
  • excel表格制作教程入门(新手表格制作教程) excel

    excel表格制作教程入门(新手表格制

    excel表格制作教程入门(新手表格制作教程)如何做excel表格?实例步骤带你入门!说到做表格,很多朋友都望而止步,认为做表格很难很复杂,其实并不是这样的,在excel做表格其实很简单,下面...

    169 2021-12-27
热门浏览
热门标签
生肖 排行榜 游戏 十二生肖 淘宝 WORD 节日 攻略 Excel 小说 抖音 句子 原神 win10 手机 云顶之弈 梦幻西游 SEO ppt 故事 排行 英雄联盟 微信 经典 意思 WPS 赚钱 觅长生 大全 什么 和平精英 疫情地图 百度地图 王者荣耀 春节 推荐 光遇 诗句 Win7
最新评论