Question

怎么把多个excel文件合并成一个

Answer 1

以WPS 2019版本为例：

如需将多个excel文件合并成一个，可使用WPS2019中已自带的「文档拆分合并」功能：

操作步骤：

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

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

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

Answer 2

新建一个BOOK文件，同时按Alt+F11这二个键，进入VBA编辑界面，点击编辑画面的菜单：“插入”--“模块”，然后在里面完整复制下面的代码：

Sub 同一文件夹多xls合并()

'Sub mergeonexls() '合并多工作簿中指定工作表

On Error Resume Next

Dim x As Variant, x1 As Variant, w As Workbook, wsh As Worksheet

Dim t As Workbook, ts As Worksheet, l As Integer, h As Long

Application.ScreenUpdating = False

Application.DisplayAlerts = False

x = Application.GetOpenFilename(FileFilter:="Excel文件 (*.xls; *.xlsx),*.xls; *.xlsx,所有文件(*.*),*.*", _

Title:="Excel选择", MultiSelect:=True)

Set t = ThisWorkbook

Set ts = t.Sheets(1) '指定合并到的工作表，这里是第一张工作表

l = ts.UsedRange.SpecialCells(xlCellTypeLastCell).Column

For Each x1 In x

If x1 <> False Then

Set w = Workbooks.Open(x1)

Set wsh = w.Sheets(1) '指定所需合并工作表，这里是第一张工作表

h = ts.UsedRange.SpecialCells(xlCellTypeLastCell).Row

If l = 1 And h = 1 And ts.Cells(1, 1) = "" Then

wsh.UsedRange.Copy ts.Cells(1, 1)

Else

wsh.UsedRange.Copy ts.Cells(h + 1, 1)

End If

w.Close

End If

Next

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

请关闭编辑画面回到工作表，点击菜单：工具--宏，或直接按ALT+F8组合键，在框中选择“同一文件夹多xls合并”，点“执行”，开始选择你想合并的工作簿，请按住CTRL键再用鼠标多个工作簿点击选取，最后点击“打开”，这样就完成合并。

Answer 3

数据处理方面的事情，可以考虑使用Data.olllo数据助手这样的工具，如论是超大EXCEL、CSV、还是TXT数据文件，合并操作很简单，可以按照关键字，有左连接、并集、交集不同方式的合并，还可以随时各个文件格式的转换。

Answer 4

使用数据透视表，快速将两个表格合并为一个表格