excel多个表格合并成一个表

admin

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

一、手工合并Excel表格

1.打开要合并的Excel表格

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

2.新建一个工作表

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

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宏适合于数据量较大的情况。在实际使用中,可以根据具体情况选择合适的合并方式。

相关阅读