Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 96|回复: 5

SUM和INDIRECT结合的一个问题

[复制链接]
发表于 2019-1-5 19:57 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
         汇总多个工作表。想用SUM和INDIRECT构建,能自动下拉,可是总是不成功,也不知道问题到底出在哪里,请高手们出出招吧。
        此表的B列是直接引用单元格的,C列想用INDIRECT间接引用单元格,实现自动下拉,可是结果是错误值。
         D列是网友给出的答案,可是这个是模拟数据,实际工作表数量有将近100个,虽然可以用其他办法取得工作表名称,可是还是觉得不方便。


问题附件.rar

10.68 KB, 下载次数: 4

发表于 2019-1-6 10:30 | 显示全部楼层
INDIRECT不支持A:c!这种写法的。如果你的工作表名称都是ABCD。ADDRESS这种。
回复

使用道具 举报

 楼主| 发表于 2019-1-7 12:57 | 显示全部楼层
心正意诚身修 发表于 2019-1-6 10:30
INDIRECT不支持A:c!这种写法的。如果你的工作表名称都是ABCD。ADDRESS这种。

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

使用道具 举报

发表于 2019-1-7 18:56 | 显示全部楼层
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, 下载次数: 3)
回复

使用道具 举报

 楼主| 发表于 2019-1-8 08:17 | 显示全部楼层
感谢版主。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2019-1-16 17:57 , Processed in 0.050000 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表