我有问题，让这个工作的某种原因，在某种程度上，我的头发变白。有一些数据表'测试'，我试图巩固工作表'finaldata'。以下是数据截图：
Sub ConsolidateData()
Dim finalDataSheet As Worksheet
Dim testSheet As Worksheet
Dim finalDataRange As Range
Dim testRange As Range
' Set references to the worksheets
Set finalDataSheet = ThisWorkbook.Worksheets("finaldata")
Set testSheet = ThisWorkbook.Worksheets("Test")
' Set the range to consolidate in the finaldata sheet
Set finalDataRange = finalDataSheet.Range("A1")
' Set the range to consolidate from the Test sheet
Set testRange = testSheet.Range("A:P")
' Consolidate the data
finalDataRange.Consolidate Sources:=Array(testRange.Address), Function:=xlSum, LeftColumn:=True
End Sub我发现问题出在Sources:=Array(testRange.Address)位，但我真的不知道它是什么。
希望任何人都可以帮助，并有一个我做错了什么端倪。（我试着问妻子，但我得到的只是无穷无尽的不相关问题）。
谢谢你
马克
2条答案
按热度按时间uubf1zoe1#
docs状态：
合并的源代码作为R1C1样式表示法中的文本引用字符串数组。参考必须包括要合并的图纸的完整路径。
试试这个（未测试）：
y1aodyip2#
“合并的源代码作为R1C1样式表示法中的文本引用字符串数组。参考必须包括要合并的图纸的完整路径。”