Excel，求修改VBA代码

2276417464

从VBA新人求教多个工作表合并成一个工作表的VBA编写引用的代码，

帖中的代码，“汇总”是从第一行开始粘贴，其他表也是从第一行开始复制到“汇总”表的

想要实现的是
1、“汇总”表的第一行我需要用来筛选，所以希望从“9月”，“10月”，“11月”等表复制的内容，从第二行开始粘贴
2、“9月”，“10月”，“11月”等表从第二行开始复制

附件代码：

Option Explicit
Sub test()
Dim arr, brr(1 To 100000, 1 To 8), i&, j&, m&, crr, k&, t#, n&
t = Timer
crr = Array("9月", "10月", "11月")
For k = LBound(crr) To UBound(crr)
      n = n + 1
       arr = Sheets(crr(k)).[a1].CurrentRegion.Value
       For i = 1 To UBound(arr)
             m = m + 1
             For j = 1 To UBound(arr, 2)
                   If j <> 1 And j <> 2 Then
                      brr(m, j) = arr(i, j)
                   Else
                      brr(m, j) = "'" & arr(i, j)
                   End If
             Next
       Next
Next
If m > 0 Then
With Sheets("汇总")
       .UsedRange.ClearContents
       .[a1].Resize(m, 8).Value = brr
End With
Else
    MsgBox "没有找到数据！", vbCritical
    Exit Sub
End If
MsgBox "汇总了" & n & "个工作表，共找到" & m & "行数据。" & vbCr & "用时：" & Format((Timer - t) * 1000, "0.000") & "毫秒", vbInformation
End Sub



请大师帮忙修改下代码，谢谢！

2276417464

1. 
   

复制代码