在VBA中，如何编写合并工作表的代码？

1、实例【通过运行VBA代码将1至3月份工作表中的内容复制到“年度”工作表中？】

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

4、会弹出模块编辑窗口！

5、在代码编辑窗口输入以下代码：

Sub 合并工作表()

Dim i As Integer, j%, k%, mth As Worksheet, yer As Worksheet

Set yer = Sheets("年度")

For i = 1 To 3

  Set mth = Sheets(i & "月份")

  j = mth.UsedRange.Rows.Count

  m = mth.Cells(2, mth.Columns.Count).End(xlToLeft).Column

  k = yer.Cells(2, 1).CurrentRegion.Rows.Count

  mth.Range(mth.[a3], mth.Cells(j, m)).Copy

  yer.Paste Cells(k + 1, 2)

  yer.Cells(k + 1, 1).Resize(j - 2) = i & "月"

Next

End Sub

6、在工作表的【开发工具】菜单下，点击【插入】按钮，插入一【表单】按钮，并与编写的【合并工作表】代码关联，且进入命名为【合并工作表】！

7、点击【合并工作表】按钮！1至3月份工作表中的内容瞬间被复制到“年度”工作表中！