ConsolidationSources 属性 - Microsoft Excel Visual Basic 2002 参考

返回介绍

ConsolidationSources 属性

发布于 2019-08-07 字数 684 浏览 935 评论 0

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


示例


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

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!