ConsolidationSources 属性

返回一个字符串数组，这些字符串是工作表中当前合并计算的数据源的名称。如果工作表中没有合并计算，将返回 Empty。Variant 类型，只读。

示例

本示例显示在工作表 Sheet1 中用于合并计算的数据源的名称。名称列表将出现在本示例新建的工作表中。

Set newSheet = Worksheets.Add
newSheet.Range("A1").Value = "Consolidation Sources"
aSources = Worksheets("Sheet1").ConsolidationSources
If IsEmpty(aSources) Then
    newSheet.Range("A2").Value = "none"
Else
    For i = 1 To UBound(aSources)
        newSheet.Cells(i + 1, 1).Value = aSources(i)
    Next i
End If
newSheet.Columns("A:B").AutoFit