SUM和INDIRECT结合的一个问题

阿利

         汇总多个工作表。想用SUM和INDIRECT构建，能自动下拉，可是总是不成功，也不知道问题到底出在哪里，请高手们出出招吧。
        此表的B列是直接引用单元格的，C列想用INDIRECT间接引用单元格，实现自动下拉，可是结果是错误值。
         D列是网友给出的答案，可是这个是模拟数据，实际工作表数量有将近100个，虽然可以用其他办法取得工作表名称，可是还是觉得不方便。

心正意诚身修

INDIRECT不支持A:c!这种写法的。如果你的工作表名称都是ABCD。ADDRESS这种。

阿利

心正意诚身修 发表于 2019-1-6 10:30
INDIRECT不支持A:c!这种写法的。如果你的工作表名称都是ABCD。ADDRESS这种。

这只是模拟表格，工作表名肯定不会这么有规律。不知道有哪位高手可以解决此类问题

爱疯

Sub test()
    Dim i, n
    n = Sheets.Count
    ReDim A(1 To n - 1)  '工作表范围
    For i = LBound(A) To UBound(A)
        A(i) = "'" & ThisWorkbook.Path & "\[" & ThisWorkbook.Name & "]" & Sheets(i).Name & "'!R1C1:R65536C2"
    Next i

    Sheets(n).Select
    Cells.Clear
    [a1].Consolidate Sources:=A, Function:=xlSum, TopRow:=True, LeftColumn:=True
End Sub
问题附件.rar (18.73 KB, 下载次数: 7)

2019-1-7 18:51 上传

点击文件名下载附件



用循环把每个引用地址加入到数组，传给Range.Consolidate 方法的参数Sources后，执行合并计算。

阿利

感谢版主。