vba操作多工作分表合并

汇总分表信息至一张总表，是数据分析相关工作中常遇到的事情，一般办法是手动复制每个分表再粘贴到汇总表里，但利用以下vba代码可以在excel中自动实现：

1、查看工作簿内所有工作表名称及对应顺序

执行该步骤的目的是确保分表的顺序正确，便于之后进行合并时的for循环

Sub check()
Dim check As Worksheet
Set check = Sheets.Add(after:=Sheets(Sheets.Count)) '添加的表放在最后
check.Name = "表格目录页"
With check
.Range("A1") = "表格顺序"
.Range("B1") = "表格名称"
For i = 1 To Sheets.Count
If Worksheets(i).Name <> "表格目录页" Then .Cells(i + 1, 1).Value = CStr("sheet" & i)
If Worksheets(i).Name <> "表格目录页" Then .Cells(i + 1, 2).Value = CStr(Sheets(i).Name)
Next i
End With
End Sub

代码可以放在thisworkbook中：

2、合并工作表

Sub 合并()
Dim sh As Worksheet, a%, b%, j%, rss%, d%, st As W