怎么把几个Excel合并成一个文件？

以WPS 2019版本为例：

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

*** 作步骤：

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

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

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

excel中多个工作簿合并成一个可以点击工具，再点击选项，把“在任务栏中显示所有窗口”前方框的“√”去掉就可以完成，具体 *** 作步骤如下：

1、将鼠标光标移动到一个Excel文件图标上，双击鼠标左键打开文档。

2、将鼠标光标移动到另一个Excel文件图标上，双击鼠标左键打开文档。

3、打开两个Excel文件后电脑任务栏并排显示了两个文件。

4、鼠标左键单击任意一个Excel文件“WPS表格”的下三角符号。

5、将鼠标光标移动到“工具”。

6、鼠标左键单击“工具”菜单下的“选项”。

7、鼠标左键单击“在任务栏中显示所有窗口”前的方框，把“√”去掉。

8、鼠标左键单击“确定”。

9、得到两个工作表同时显示在Excel软件下。

注意事项：

1、上述步骤为软件WPS的Excel *** 作步骤，office的Excel *** 作步骤类似。

2、上述步骤可以把excel中多个工作簿合并成一个，若需把打开多个Excel文件由合并状态改成单个显示，只需在 *** 作第七步时把“在任务栏中显示所有窗口”前方框的“√”加上即可。

如果你的所有TXT文件内的数据都是有规律的，可以先将多个TXT文件进行合并为一个TXT文件后再进行导入到EXCEL中进行分列 *** 作，也可以先单个导入TXT文件到EXCEL中分列 *** 作后再进行复制合并，导入EXCEL步骤如下：
选择EXCEL工具栏中的“数据”选项 - 下拉选择“导入外部数据” - 在 导入数据
文件类型中选择“文本文件”，然后找到你需要打开的文本文件，然后会进入文本导入向导 ，分列步骤 先选择分隔符号 为 “空格” 再选择跳过哪些列，确定后导入成功。
这个导入的过程你可以自己录制 宏 ，加快效率。当然做完一个TXT文件之后需要修改此宏中的导入文件地址和插入数据位置，如果你导入数据的起始位置是显示下面的语句（Destination:=ActiveCell）以被选中单元格起始，那么这个就不用修改。

将这些文件copy到一个文件夹,建一新Excel，也存到该文件夹。仅打开该新Excel，按Alt+F11，点菜单的插入，模块，粘贴如下代码：
Sub Find()
ApplicationScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbookPath & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbookName) Then
WorkbooksOpen Match, 0 'open
ActiveSheetCopy Before:=ThisWorkbookSheets(1) 'copy sheet
Windows(Match)Activate
ActiveWindowClose
End If
Match = Dir$
Loop Until Len(Match) = 0
ApplicationScreenUpdating = True
End Sub
在此界面之间按F5运行此宏，所有表格复制到一个Excel里了。

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1
2、选择查看代码（PS：excel有着一项，WPS没有）
3、将下列代码复制到文本框中：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
ApplicationScreenUpdating = False
MyPath = ActiveWorkbookPath
MyName = Dir(MyPath & "\" & "xls")
AWbName = ActiveWorkbookName
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = WorkbooksOpen(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1)ActiveSheet
Cells(Range("B65536")End(xlUp)Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To SheetsCount
WbSheets(G)UsedRangeCopy Cells(Range("B65536")End(xlUp)Row + 1, 1)
Next
WbN = WbN & Chr(13) & WbName
WbClose False
End With
End If
MyName = Dir
Loop
Range("B1")Select
ApplicationScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

1、首先，我们创建两个工作表，并输入不同内容来演示，我需要把这两个工作表合并。我们同时打开这两个工作表。

2、为演示方便，我把表1的工作簿标签改成“工作1、2、3”的形式，右键点击其中一个标签，选择“选定全部工作表”，就能全选表1的内容。再次右键点击一下，选择“移动或复制工作表”。

3、出现移动或复制选项框，我们点击选择将选定工作表移至“表2”，并选择放置于“移至最后”，点击确定。

4、这样，表1的内容都被合并到表2中了，效果如下图所示。

1、首先将这些excel文件都复制到一个文件夹下。

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

3、输入刚刚的文件夹路径，点击确定。

4、点击合并下的合并和加载选项。

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

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

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1
2、选择查看代码（PS：excel有着一项，WPS没有）
3、将下列代码复制到文本框中：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
ApplicationScreenUpdating = False
MyPath = ActiveWorkbookPath
MyName = Dir(MyPath & "\" & "xls")
AWbName = ActiveWorkbookName
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = WorkbooksOpen(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1)ActiveSheet
Cells(Range("B65536")End(xlUp)Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To SheetsCount
WbSheets(G)UsedRangeCopy Cells(Range("B65536")End(xlUp)Row + 1, 1)
Next
WbN = WbN & Chr(13) & WbName
WbClose False
End With
End If
MyName = Dir
Loop
Range("B1")Select
ApplicationScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

---