VBA中Consolidate用法及参数

Consolidate 方法

参阅应用于示例特性

将若干工作表中若干区域的数据合并计算至单个工作表上的单个区域。Variant 类型。

expression.Consolidate(Sources, Function, TopRow, LeftColumn, CreateLinks)

expression      必需。该表达式返回“应用于”列表中的对象之一。

Sources      Variant 类型，可选。以字符串数组的形式给出合并计算的源，该数组中包含 R1C1-样式的引用记号。这些引用必须包含将要合并计算的工作表的完整路径。

Function     XlConsolidationFunction 类型，可选。

XlConsilidationFunction 可为以下 XlConsilidationFunction 常量之一。

xlAverage default.

xlCount

xlCountNums xlMax xlMin xlProduct xlStDev xlStDevP xlSum xlVar xlVarP

TopRow      Variant 类型，可选。如果为 True，则基于合并计算区域中首行内的列标题对数据进行合并计算。如果为 False，则按位置进行合并计算。默认值为 False。

LeftColumn      Variant 类型，可选。如果为 True，则基于合并计算区域中左列内的行标题对数据进行合并计算。如果为 False，则按位置进行合并计算。默认值为 False。

CreateLinks      Variant 类型，可选。如果为 True，则合并计算将使用工作表链接。如果为 False，则合并计算时将复制数据。默认值为 False。

示例

本示例使用 SUM 函数对工作表 Sheet 2 和工作表 Sheet 3 的数据进行合并计算，将结果放到工作表 Sheet1 中。

Worksheets("Sheet1").Range("A1").Consolidate _
    Sources:=Array("Sheet2!R1C1:R37C6", "Sheet3!R1C1:R37C6"), _
    Function:=xlSum