Worksheet.ConsolidationSources 属性 (Excel)

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

语法

表达式。ConsolidationSources

表达 一个代表 Worksheet 对象的变量。

示例

本示例显示在工作表 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。