利用宏合并一个工作薄下的多张表格方法

利用宏合并文档需要保证格式一致性
宏代码：
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Rows(“2:1048576”).Clear
Dim xrow As Integer, sht As Worksheet, rng As Range
For Each sht In Worksheets
If sht.Name <> ActiveSheet.Name Then
Set rng = Range(“C1048576”).End(xlUp).Offset(1, -1)
sht.AutoFilterMode = False
xrow = sht.UsedRange.Rows.Count - 1
sht.Range(“B2”).Resize(xrow, 6).Copy rng
sht.Rows(“1:1”).AutoFilter
End If
Next
Application.ScreenUpdating = True
MsgBox “当前工作簿下的全部工作表已经合并完毕！”, vbInformation, “提示”
End Sub

第一步：在工作表显示栏开头新建一个表格

第二步：鼠标右键新建的文件选择查看代码

第三步：复制代码到编码区（1位置）：
2 位置所示为宏名称 运行时必须填写的

第四步：点击运行按钮

此时会出现两种情况：
情况一：弹出宏窗口，填写完宏名称（1）位置 点击运行（2）位置
宏名称 填写CommandButton1_Click
情况二： 弹出1004错误 点击确认

不管情况一还是情况二都是成功的
最后一步关闭宏窗口

合并完成:
第一步新建的表格出现合并后的内容: