固结法-VBA

亲爱的,

.Consolidate Sources:=ArrSource, Function:=xlSum, _
   TopRow:=False, LeftColumn:=True, CreateLinks:=False

。以下是我的代码:

Option Explicit

Sub test1()

    Dim ArrSource As Variant

    With ThisWorkbook.Worksheets("Sheet1")

        ArrSource = .Range("A1:B20")

        With .Range("D1")
            .Consolidate Sources:=ArrSource, Function:=xlSum, _
                TopRow:=False, LeftColumn:=True, CreateLinks:=False
        End With

    End With

End Sub

有什么想法吗?