合并工具（求助）

若辛

您好，我想求助一个VBA编程工具：有几个表格，每个表格中的不同SHEET页（sheet页一一对应）第一列是相同的字段，其他的不同，想根据这个相同的字段，对应的合并在一个表格中，且对应sheet页对应上，（合并工具）

若辛

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
想问一下这个工具可以如何使用，是合并多个工作簿相同sheet页的吗？