Excel) (Worksheet.ConsolidationSources 屬性

傳回一個字串值陣列，該字串是工作表中目前合併彙算的資料來源的名稱。 如果工作表中沒有合併彙算，將傳回 Empty。 唯讀的 Variant。

語法

運算式。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 支援與意見反應。