2，多工作簿汇总（Consolidate）

'2，多工作簿汇总（Consolidate）

 

'多工作簿汇总

Sub ConsolidateWorkbook()

    Dim RangeArray() As String

    Dim bk As Workbook

    Dim Sht As Worksheet

    Dim WbCount As Integer

    WbCount = Workbooks.Count

    ReDim RangeArray(1 To WbCount - 1)

    For Each bk In Workbooks '在所有工作簿中循环

        If Not bk Is ThisWorkbook Then '非代码所在工作簿

        Set Sht = bk.Worksheets(1) '引用工作簿的第一个工作表

        i = i + 1

        RangeArray(i) = "'[" & bk.Name & "]" & Sht.Name & "'!" & _

        Sht.Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)

        End If

    Next

    Worksheets(1).Range("A1").Consolidate RangeArray, xlSum, True, True

End Sub