将多个Excel文件合并成一个且保留原有数据要怎么做

办公教程导读

收集整理了【将多个Excel文件合并成一个且保留原有数据要怎么做】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1249字，纯文字阅读大概需要2分钟。

办公教程内容图文

3. 在弹出的对话框中，勾选 "合并所有工作簿"，然后点击“确定”按钮。

4. 选择合并后文件生成的位置，然后点击保存即可完成合并。

二、使用VBA编程合并多个Excel文件

1. 打开Excel软件，点击“开发工具”-“宏”，新建一个宏。

2. 打开VBA代码编辑器，将以下代码粘贴到编辑器中：

Sub MergeExcelFiles()

Dim xFileDialog As FileDialog

Dim xFileNames As Variant

Dim xNewBook As Workbook

Dim xPath As String

Dim xFirstFile As Boolean

Set xFileDialog = Application.FileDialog(msoFileDialogOpen)

xFileDialog.AllowMultiSelect = True

If xFileDialog.Show = -1 Then

xFileNames = xFileDialog.SelectedItems

xPath = xFileNames(1)

xPath = Left(xPath, Len(xPath) – Len(Dir(xPath)))

Set xNewBook = Workbooks.Add

xFirstFile = True

For Each xWbk In xFileNames

Workbooks.Open xWbk

If xFirstFile Then

Range("A1").CurrentRegion.Copy
Destination:=xNewBook.Sheets(1).Range("A1")

xFirstFile = False

Else

Range("A1").CurrentRegion.Offset(1, 0).Copy
Destination:=xNewBook.Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2)

End If

xNewBook.Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2).Select

ActiveWorkbook.Close 0

Next

xNewBook.SaveAs Filename:=xPath & "\MergeFile.xlsx"

MsgBox "合并完成", vbInformation

Else

MsgBox "用户取消操作", vbCritical

End If

End Sub

3. 然后按下F5，在弹出的对话框内选择所有需要合并的Excel文件，单击确定按钮等待合并完成。

4. 合并完成后，会在选择文件夹下生成一个名为MergeFile.xlsx的文件，即为合并后的Excel文件，可以打开该文件看到原有的数据还在。

办公教程总结

以上是为您收集整理的【将多个Excel文件合并成一个且保留原有数据要怎么做】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程将多个Excel文件合并成一个且保留原有数据要怎么做。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。