VBA - 使用合併功能對數據進行求和

Question

我正在嘗試使用合併功能將一些工作表（帶有名稱蘋果和橙子）與相同的模板合併到一個主模板中。

ConsolidateRange是合併中使用的選項卡名稱和範圍。

Master是我試圖輸出總和的表的名稱。

請參閱我試圖在爲了做到這一點使用下面的代碼：

ConsolidateRange = "apples!R1C1:R37C6, oranges!R1C1:R37C6" 

    Worksheets("Master").Range("A1").Consolidate _ 
    Sources:=Array(ConsolidateRange), _ 
    Function:=xlSum 

是我得到的錯誤是「無法打開合併源文件‘蘋果’

任何幫助將不勝感激。

感謝

Answer 1

您必須聲明一個Variant與Array()功能

Dim ConsolidateRangeArray As Variant 

ConsolidateRangeArray = Array("apples!R1C1:R37C6", "oranges!R1C1:R37C6") 

Worksheets("Master").Range("A1").Consolidate _ 
Sources:=ConsolidateRangeArray, _ 
Function:=xlSum 

填寫或使用Split()做出String陣列一個字符串與用分隔符子

Dim ConsolidateRange As String 

ConsolidateRange = "apples!R1C1:R37C6,oranges!R1C1:R37C6" 

Worksheets("Master").Range("A1").Consolidate _ 
Sources:=Split(ConsolidateRange, ","), _ 
Function:=xlSum