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