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表数据合并后的结果。效果如图所示。

方法/步骤1：小编以图中的表格为例。看到及时采纳喔！谢谢！表格中a1至d1单元格是合并在一起的；要还原单个单元格，在单元格合并区内点下，然后，在图中箭头所指合并图标点下，2：a1至d1单元格即被还原，在其它单元格点下表示完成上面的动作，

3：另一种操作方法，在合并区域内，鼠标右键点下。

在弹出的菜单中点“设置单元格格式”4：弹出设置框，把“合并单元格”前面的勾消除。然后点确定。

5：a1至d1单元格合并的即被还原。

若想再把单元格合并的话，可以在a1单元格点下，然后不放手，一直拖拉到d1单元格，表示选中a1至d1单元格。6：然后，在图中箭头所指的合并单元格图标点下。a1单元格至d1单元格即被合并成一个单元格。

首先打开2个excel表格（如图一、图二），会发现这两个excel表格的A列是相同类型的，都是”百度ID号“，不同的是表格1有经验数量和财富值，而表格2有的是最近拿好经验红包的数量，现在就是需要把2个excel合并成一个表格。

现在表格1的D列写上需要导入数据的列标题，或者直接从表格2中复制-粘贴过来也行。

然后将鼠标移动到D列的第二行，打开菜单栏的”公式“选项，在公式的工具中找到”插入函数“并点击。

在插入函数窗口页面，在搜索函数框中输入”vlookup"然后转到，在出现的结果函数中，点击vlookup函数，然后点确定。

弹出来的函数参数中，在第一个填写框vlookup_value中直接点击A2的”张一”。

在第二个填写框Table_array中全选表格2，表格2中A列和B列都包含了。

在第三个填写框col_index_num 中直接填写2，表示选择第2列的数据，然后第四个填写框Range_lookup中填写0，表示大致匹配，然后填写完毕之后点击确定

这时D列的D2显示5，表示张一拿到5红包，因为刚才的函数公式是跟张一对应的，所以出现了张一的数据，如果想要其他人的数据时，可以把鼠标放到D2选项框的右下角，等到出现一个“+”号时，双击鼠标左键。

这时候所有的数据都出来了，成功将表格2的数据导入表格1，合并成一个表格数据。