如何合并多个excel文件

如何合并多个excel文件~

合并方法如下：
1.需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：


2.用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

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
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName ""
If MyName AWbName Then
Set Wb = Workbooks.Open(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 Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

4.运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

在vba中可以写一个程序，关键：
1、获取文件名和文件所在路径；
2、在目录中获取要合并的文件名，并能区分它们；
3、做一个或新建一个有同样标题的用于合并文件的“总文件”，在程序中设置一个range类型的对象变量用于接收被合并的文件中单元格的值；
4、读取一个文件，按行列方式获取文件中单元格的值即用Cells（i，j）并赋值给第三步的变量；
5、对3、4循环完成一个表的合并；
6、条件循环到2，获取下一个文件名，直到文件名为空
7、运行该vba程序或叫“宏”即可合并多个文件

合并方法如下：

1.需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：

2.用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

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

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(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 Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

4.运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

合并多个excel文件主要分两种情况
1、共用同一个表头
2、不共用一个表头，而是把各个excel文件中的所有表格按先后顺序合并在一起。
你说明白了，我给你提供vba代码。代码我很全的，也很实用。

---

察布查尔锡伯自治县17860882871： 怎么把几个Excel合并成一个文件? - ？
剑天典比： 以WPS 2019版本为例: 如需将多个Excel合并成一个文件,可使用WPS2019中已自带「文档拆分合并」功能: 操作步骤: 1)打开其中一份「表格(Excel)」文档; 2)点击「特色应用-拆分合并-合并」; 3)点击添加需合并文件,设置合并文件需合并的页数范围即可将多个文档合并为一份.

察布查尔锡伯自治县17860882871： 怎样把多个excel表格合并到一个文件中 - ？
剑天典比： 1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1 2、选择查看代码(PS:excel有着一项,WPS没有) 3、将下列代码复制到文本框中: Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, ...

察布查尔锡伯自治县17860882871： 如何将多个excel文档合并到一个工作簿中 - ？
剑天典比： 方法/步骤将需要合并的excel工作簿文件放置在一个文件夹中. 每个文件夹中的工作簿都输入了简单的内容.在该文件夹中,新建立一个新的excel工作簿文件.重命名为8.打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作...

察布查尔锡伯自治县17860882871： 怎样把多个excel表格合并到一个表格里 - ？
剑天典比： 两个excel表格合并成一个表格的方法: 1、首先找到并点击你的WPS表格,即打开Excel. 2、打开Excel后,导入或输入自己想要的表格. 3、在Excel中复制其中一个表格. 4、然后选择另一个表,在Excel中复制所有数据. 5选择刚才...

察布查尔锡伯自治县17860882871： 如何把多个excel表格内容合并成一个 - ？
剑天典比： 首先我们操作前,一定要把多个Excel表格文件放到一个文件打开空白Excel文件,点击【数据】菜单,点击【新建查询】选择【从文件】下的【从文件夹】,选择Excel表格文件夹然后自动识别文件夹里的Excel文件,如下图点击下方【合并】下的【合并和加载】选项.这样基本就完成了表格的合并.最后需要我们根据不同需求调整一下表格的样式和内容就行了.调整完最终效果.多个Excel表格合并一个表格的方法分享完毕.小编的专栏也有很多漂亮的Excel模板,自带公式,一键生成漂亮的Excel表格模板.如有需要,购买专栏后私信小编获取.如果你觉得对您有用,动动手指,点赞,转发一下哦!

察布查尔锡伯自治县17860882871： 怎么把100多个EXCEL文件合并成一个 - ？
剑天典比： 可以通过更改excel代码来合并多个文件. 详细步骤: 1、新建一个文件夹. 2、将要合并的表格放到里面. 3、新建一个表格. 4、用excel打开. 5、右击Sheet1. 6、选择查看代码. 7、将下列代码复制到文本框中: Sub 合并当...

察布查尔锡伯自治县17860882871： 怎样把多个excel文件合并到一个文件中? - ？
剑天典比： 把所需合并的Excel文档放在同一个文件夹中,再文件夹中新建一个Excel打开Excel,按ALT+F11,或 依次点工具,宏,VB编辑器,弹出的编辑器中点插入模块,新弹出的空白窗口中输入以下代码: Sub Com() Dim MyPath, MyName, AWbName...

察布查尔锡伯自治县17860882871： 怎么将多个Excel工作簿合并成一个新的工作簿 - ？
剑天典比： 把要合并的文件复制到一个新建文件夹中,在该文件夹中新建一个execl,仅打开新建Excel,按Alt+F11,点菜单的插入,模块,粘贴如下代码: Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As ...

察布查尔锡伯自治县17860882871： 怎么把两个Excel合并成一个? - ？
剑天典比： 以WPS 2019版本为例: 如需把两个Excel合并成一个,可使用WPS2019中已自带的「文档拆分合并」功能: 操作步骤: 1)打开其中一份「表格(Excel)」文档; 2)点击「特色应用-拆分合并-合并」; 3)点击添加需合并文件,设置合并文件需合并的页数范围即可将多个文档合并为一份.

察布查尔锡伯自治县17860882871： 怎样将多个EXCEL文件合并成一个EXCEL文件 - ？
剑天典比： 如果表不算太多的话可以试试这种方法,打开总表(要粘贴的表),打开一个要复制的表,右击要复制的工作表标签,选择移动或复制工作表,建立副本,选择要移动到表(要粘贴的那总表).这种方法对合并到同一个文件中还是可行的.但你说的汇总到一张表里就不行了,可以试试用“=”建立链接(要用相对地址),但这种方法对表结构相同或类似的才可以,而且文件名和表名称要有规律.这样会很快汇总到一张表中,下面的活儿就是整理一下的工作了,要是要数据的话就把链接改成数据才可以,这种方法好在可以动态更新你的数据.写代码也可以,但若是工作量很大的话可考虑!