Excel宏实现合并表格

课题：Excel宏

可以使用下面的步骤在Excel中使用宏合并表格：

1. 打开Excel并打开要合并的工作簿。

2. 按下Alt + F11打开Visual Basic Editor。

3. 单击插入菜单，然后单击模块。

4. 使用下面的代码创建一个新的宏：

Sub MergeTables()

之后可以用以下代码来定义变量：
 

Dim sourceBook As Workbook

Dim sourceSheet As Worksheet

Dim destSheet As Worksheet

Dim destRow As Long

打开源工作簿，例如：

Set sourceBook = Workbooks.Open("C:\Users\username\Desktop\SourceWorkbook.xlsx")

设置目标工作表：

Set destSheet = ThisWorkbook.Sheets("DestinationSheet")

循环源表中的行：

For Each sourceSheet In sourceBook.Sheets

For destRow = 2 To sourceSheet.Cells(Rows.Count, 1).End(xlUp).Row

    '在目标表的下一行中粘贴源表行

    destSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, _