用VBA把一个工作簿中所有的sheet表合计值汇总到总表中

Sub 统计()
Rem
Dim mysht As Worksheet
Dim arr
Dim er%
Dim ec%
    Set mysht = Sheets("汇总")
    With mysht
        .Range("b3:iv65536").ClearContents
        arr = .[a4].CurrentRegion
        er = UBound(arr, 1): ec = UBound(arr, 2):
    End With
Rem
Dim d As Object
Dim i1%
    Set d = CreateObject("scripting.dictionary")
    For i1 = 3 To er Step 1
        d(arr(i1, 1)) = i1
    Next
Rem
Dim sht As Worksheet
Dim hr%
Dim i2%
Dim dstr$
Dim fr
Dim r%
Dim fc
Dim c%
Dim dnum
Dim sr%
    For Each sht In Worksheets
        With sht
            If .Name <> mysht.Name Then
                Rem
                .Select ''''''''''''''''''''''