如何将多个Excel文件合并成一个且保留原有数据?事实上,我们可以借用Excel宏命令来处理该操作,并且保留原有数据,建立多个Sheet页,具体操作请看下文多个Excel文件合并成一个的方法。
如何将多个Excel文件合并成一个且保留原有数据?
1、将需合并的Excel文件放在同一个文件夹中,并这个文件中新建一个Excel文件。
2、打开新建的Excel文件,按 Alt + F11 键,打开宏,选择视图→代码窗口。
3、将下面的代码拷贝进去:
01Sub sheets2one()
02'定义对话框变量
03Dim cc As FiLEDialog
04Set cc = Application.FileDialog(msoFileDialogFilePiCKer)
05Dim newwork As Workbook
06Set newwork = Workbooks.Add
07With cc
08If .Show = -1 Then
09Dim vrtSelectedItem As Variant
10Dim i As Integer
11i = 1
12For Each vrtSelectedItem In .SelectedItems
13Dim tempwb As Workbook
14Set tempwb = Workbooks.Open(vrtSelectedItem)
15tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
16newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
17tempwb.Close SaveChanges:=False
18i = i + 1
19Next vrtSelectedItem
20End If
21End With
22Set cc = Nothing
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
4、点击运行选项运行宏命令。
5、之后弹出选择对话框,选择要批量合并的Excel名,确定即可。
6、程序运行完毕后,会自动生成一个工作簿,工作簿内包含所有需合并的Excel文件,将工作簿另存为即可。
以上步骤便是,合并后的Excel文档会献出多个Sheet页,我们可以很方便的切换了解。
推荐您阅读更多有关于“Excel”的文章
- excel
excel中count函数的用法(count函数
excel中count函数的用法(count函数的用法)Excel中,COUNT函数是一个统计数字个数的函数,统计时将只统计数字、日期和代表数字的文本(如:用引号引起的数字 "1")。不会统计空值、文本...
163 2022-01-05 - excel
excelcountif函数怎么使用(COUNTIF
excelcountif函数怎么使用(COUNTIF函数用法大全)COUNTIF函数用于统计满足某个条件的单元格的数量,其基本用法为:COUNTIF(统计区域,指定的条件)如下图所示,要统计A列有几个5,可以使...
201 2022-01-05 - excel
excel乘法公式函数名称(excel做乘法
excel乘法公式函数名称(excel做乘法表公式)excel是我们工作中很常用的一款表格制作工具,它不仅仅只是用来制作表格,它还能对表格中的数据进行处理(如:排序、运算等)。今天小编要介...
80 2021-12-27 - excel
excel表格怎么求和一列(excel表列求
excel表格怎么求和一列(excel表列求和)打开Excel表格,选择一列数字。2点击上方“求和”按钮,求和结果即会显示在数字下方。3还可选中一列数字,选择后可看到表格下方有求和值,也有...
44 2021-12-27 - excel
excel百分比怎么做柱状图(怎么做属
excel百分比怎么做柱状图(怎么做属于百分比的柱状图)首先,打开所需要处理数据的Excel表格,一列百分比数据下方的单元格中输入“100%”。2然后,使用鼠标的左键,将包含100%的单元格...
194 2021-12-27 - excel
excel表格制作教程入门(新手表格制
excel表格制作教程入门(新手表格制作教程)如何做excel表格?实例步骤带你入门!说到做表格,很多朋友都望而止步,认为做表格很难很复杂,其实并不是这样的,在excel做表格其实很简单,下面...
169 2021-12-27