如何将多个excel文件合并为一个excel

Question

把多个excel合并成一个Excel, 不需要手动复制

Answer 1

1、打开电脑，然后打开文件夹将这些excel文件都复制到一个文件夹下。注意，文件夹下不要有其他的excel文件；

2、切换到【数据】菜单，点击【新建查询】，选择【从文件】下的【从文件夹】；

3、接下来输入刚刚的文件夹路径，找到并点击【确定】选项；

4、然后会出现一个新的页面，接着找到并点击【合并】下的【合并和加载】选项；

5、选择要合并的工作表名称，最后点击【确定】选项；

6、这时就完成了多个excel文件的合并。从筛选菜单中可以看到本例中的4个文件都这一份表格中。

Answer 2

将需合并的excel文件放在同一个文件夹中，并这个文件中新建一个excel文件
如何将多个excel文件合并为一个excel

打开新建的excel文件，按alt + f11建，打开宏，选择视图——代码窗口
如何将多个excel文件合并为一个excel
如何将多个excel文件合并为一个excel

将下面分割线内的的代码拷贝进去，并保存。

======我是分割线======

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文件合并为一个excel

点击运行，弹出对话框可，点击运行选项运行程序，
如何将多个excel文件合并为一个excel
如何将多个excel文件合并为一个excel

再次弹出选择对话框，选择要批量合并的excel名，确定即可
如何将多个excel文件合并为一个excel

程序运行完毕后，会自动生成一个工作簿，工作簿内包含所有需合并的excel文件，将工作簿另外即可
如何将多个excel文件合并为一个excel
如何将多个excel文件合并为一个excel本回答被网友采纳

Answer 3

以WPS 2019版本为例：

操作步骤：

1）打开其中一份「表格（Excel）」文档；

2）点击「特色应用-拆分合并-合并」；

3）点击添加需合并文件，设置合并文件需合并的页数范围即可将多个文档合并为一份。

官方电话官方服务
官方网站