如何把多个excel合并成一个表格？

快速把多个excel表合并成一个excel表步骤如下：

1、把多个excel表格放在同一文件夹里。

2、新建一个excel表格。

3、打开新建excel表格，右键单击sheet1，代码。

4、d出宏计算界面，将代码复制进去。

5、在工具栏中找到运行，点击“运行子过程”。

6、运行完成之后，点击确定查看合并后的数据。

您好， 方法

1、格式统一的表格，第一行为表头（我这个数据是瞎写的，你们就随意看看吧），为什么要这个表头，会做数据透视表的人都知道为什么，我就不赘述了。

2、把所有的表格都放在一个文件夹内，这个文件夹的名字自己起，地方自己选，能找到就行，要注意，做表格之后这个文件夹就不能移动了，所有的文件都要关闭。为了方便，我取名“源数据”，放在桌面做演示，

3、打开你需要合并表的位置，接下去分为四个步骤，完成，请耐心看完。

1指定文件夹

365版：数据→获取数据→自文件→从文件夹→浏览→选择“源文件”→确定→编辑

2016版：数据→新建查询→从文件→从文件夹→浏览→选择“源文件”→确定→编辑

2013版：Power Query→从文件→从文件夹→浏览→选择“源文件”→确定→编辑。

2读取文件内容

将content以外的列全部删除，点表头右键删除其他列，binary是二进制的意思，所以要添加个函数翻译一下内容。具体方式：添加列→自定义列→新列名取个你喜欢的名字，自定义列公式ExcelWorkbook([Content],true)。注意公式区分大小写，不能写错，content是插入的，true是绕开第一行的意思。当然你可以复制粘贴这个公式到=后面，这样更省事。

3合并工作表

确定后，文件都翻译好了，但是我们希望看到的是文件里面的表单，所以，扩展一下，只保留data，然后再次扩展，确定，就可以看到，已经有了合并的单子。

4将合成的表格转化为Excel文件

左上角关闭并上载至，选择自己想要存的位置，完成。

这个合并编辑完成后，只要文件夹里的内容变了，在新文件中设计刷新一下就行，就能体现在新合并的Excel中，功能逆天。你可以去试试。

可以利用vba快速合并多个excel工作表成为一个。

软件版本：office2007

举例说明如下：

1有多个工作表有如下相同格式的数据，合并到总表中：

2alt+f11，输入如下代码：

3f5执行代码，表格数据就合并到总表中了：

使用WPS2019版的多表合并功能，全程 *** 作简单，帮你快速完成数据合并。前期制作好模板，保持表格结构一致性，等收集好数据就可以开始了。

1、新建一个电子表格，找到“数据”选项卡

2、找到合并表格按钮，可以看到，根据不同情况，WPS都提供了解决方案，我们选择第一个

3、选择你要合并的文件，点击前面的对号选中

4、选中以后，点击开始合并

5、点击以后就会显示成功合并。

注意事项

1、对于新用户会提示wps会员7天福利广告，如果出现这个提示关闭WPS再次打开文件后进入，就可以了。

2、如果账号过期要想免费用，可以再注册个账号

合并如下：

工具/原料：华硕天选 2、Windows 11、WPS Office 111。

1、右击选中需要合并的表格。

2、点击合并表格选项，点击d出菜单的合并表格选项。

3、选择合并方式，选择合并表格菜单的合并方式完成合并。

表格其他 *** 作技巧

如果表格记录的数据比较多，我们可以使用冻结窗格，将选中的窗格固定在某个位置，这样滚动列表其它内容的时候，这部分窗格的会保持在某个位置，例如首行、首列。

如果我们需要在某个窗格里插入截图，不需要借助其它软件，Excel里自带屏幕截图工具。

有时候想要尽可能地缩小表格页面大小，可以隐藏功能区，这样就可以更多地显示表格内容。

传输或者打印文件的时候，需要将Excel转换成PDF，可以在Excel里直接导出。

excel中可以利用vba把多个相同格式的excel表格合并到一张表格中

软件版本：office2007

举例说明如下：

1有多个工作表有如下相同格式的数据，合并到总表中：

2alt+f11，输入如下代码：

3f5执行代码，表格数据就合并到总表中了：

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

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