excel多个表格合并成一个表

导读：在日常工作中，我们经常需要将多个Excel表格合并成一个表格。本文将详细介绍如何将多个Excel表格合并成一个表格的方法，包括手工合并和使用VBA宏合并两种方式。其中手工合并适用于少量数据合并，而使用VBA宏合并适用于大量数据合并。

一、手工合并Excel表格

1.打开要合并的Excel表格

首先，将要合并的Excel表格打开并在同一文件夹下。

2.新建一个工作表

在要合并的Excel表格之后，新建一个工作表。

3.复制数据

在新建的工作表中，选中A1单元格，复制要合并的第一个Excel表格中的所有数据，包括表头和数据内容，然后粘贴到A1单元格下面。

4.插入分隔符

在数据表格的下面插入一个分隔符，如一条横线或者一行字母。

5.重复步骤3和4

在新插入的分隔符下方，复制要合并的第二个Excel表格中的数据，再插入一个分隔符，直到所有Excel表格的数据都复制完毕。

6.保存工作表

合并完数据后，记得保存工作表。

二、使用VBA宏合并Excel表格

1.打开主Excel表格

首先，打开要合并的主Excel表格，在该表格中新建一个工作表。

2.打开VBE编辑器

同时按下Alt+F11键，打开VBE编辑器。

3.新建一个VBA宏

在VBE编辑器中，新建一个VBA宏，将以下代码粘贴进去。

Sub CombineWorkbooks()

    Dim Filename As String, Pathname As String, Sheet As Worksheet, Total As Integer
    Application.ScreenUpdating = False
    Pathname = ActiveWorkbook.Path & "\"
    Filename = Dir(Pathname & "*.xlsx")
    Do While Filename <> ""
        If Filename <> ActiveWorkbook.Name Then
            Total = Total + 1
            Set Sheet = Workbooks.Open(Pathname & Filename).Sheets(1)
            Sheet.Copy after:=ThisWorkbook.Sheets(1)
            Workbooks(Filename).Close False
        End If
        Filename = Dir()
    Loop
    Application.ScreenUpdating = True
    MsgBox Total & "个工作薄合并完成。", vbInformation, "提示"
End Sub

4.运行VBA宏

运行宏后，选择要合并的Excel表格所在文件夹，点击“确定”按钮，等待宏运行完毕，即可在主Excel表格中看到合并后的数据。

三、总结

无论是手工合并还是使用VBA宏，都可以将多个Excel表格合并为一个表格。手工合并适合于数据量较少的情况，而使用VBA宏适合于数据量较大的情况。在实际使用中，可以根据具体情况选择合适的合并方式。