求助一个字典解决若干列求和

香川群子 · 发表于 2018-7-26 11:28

244506982 发表于 2018-7-26 09:41
虽然是年代久远的贴子,不过还是看看有没希望得到香川老师的回复...... 这条代码我放进去了,还过第23行 ...

你在代码使用中有问题，可以上附件让别人看一下。

就这么嘴上一说，没有附件神仙也难下手。

244506982 · 发表于 2018-7-26 11:42

本帖最后由 244506982 于 2018-7-26 11:43 编辑

香川群子发表于 2018-7-26 11:28
你在代码使用中有问题，可以上附件让别人看一下。

就这么嘴上一说，没有附件神仙也难下手。

sorry ,这个代码我是放在楼主的附件里用的. 楼主说能用,可能是我搞错了.. 我分别用wps 和excel2016试了.

香川群子 · 发表于 2018-7-26 13:12

本帖最后由香川群子于 2018-7-26 13:14 编辑

244506982 发表于 2018-7-26 11:42
sorry ,这个代码我是放在楼主的附件里用的. 楼主说能用,可能是我搞错了.. 我分别用wps 和excel20 ...

brr = [aa1].CurrentRegion '获取包含浅绿色关键词单元格所在区域作为输出结果区域读入数组brr
'这里的AA1位置是我临时定的，楼主可以自己修改成实际浅绿色单元格的位置。

你看懂这一段文字的意思了吗？

如果位置不对，当然代码运行是错误的。
如果使用楼主附件，那么aa1应该改成h1位置即可。
brr = [h1].CurrentRegion '获取包含浅绿色关键词单元格所在区域作为输出结果区域读入数组brr

最后一句输出的位置也要改。
[h1].Resize(UBound(brr), n) = brr '输出结果到工作表指定区域

244506982 · 发表于 2018-7-26 13:26

香川群子发表于 2018-7-26 13:12
brr = [aa1].CurrentRegion '获取包含浅绿色关键词单元格所在区域作为输出结果区域读入数组brr
'这里 ...

明白,感谢.

jy03342543 · 发表于 2018-7-26 13:38

本帖最后由 jy03342543 于 2018-7-26 14:45 编辑

香川群子发表于 2013-1-28 22:56
如果楼主想要学习字典用法，那么请看附件：我的算法是最高效的。没有其它。

感谢香川老师，又让我学到不少新知识。t = k 这句用的太妙了。

616423899 · 发表于 2018-12-4 15:41

香川群子发表于 2013-1-29 08:40
那就这样修改：

你好,你的代码运行速度很快 .
为什么连续点击按钮时,结果会累计起来的呢? 帮忙看看好吗,谢谢!!

香川群子 · 发表于 2018-12-5 13:57

616423899 发表于 2018-12-4 15:41
你好,你的代码运行速度很快 .
为什么连续点击按钮时,结果会累计起来的呢? 帮忙看看好吗,谢谢!!

因为原帖主的目的，就是要不断地累加。

如果A1部分的数据来自于不同表格的复制、粘贴，
那么宏代码运行之后，就会在H1所在区域得到累计数字。

如果你只需要一个表的汇总，而不需要累计，那么需要每次事先把统计输出区域清空。

陈功 · 发表于 2019-5-10 16:22

要学习字典用法

		自动登录	找回密码
密码			免费注册

[已解决] 求助一个字典解决若干列求和

评分