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