24小时热门版块排行榜

返回列表

gxggsk118

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 383.5
帖子: 73
在线: 11.4小时
虫号: 580493
注册: 2008-07-11

[求助] 求和代码解析

如附件中，将表“数据”中每天每个点的价格求平均值和求和，以下是求和的代码，可我看不懂，各位老师能解析一下每条语句的作用吗？
Sub 按钮1_单击()
arr = Sheets("数据" ).Range("a1" ).CurrentRegion
Set d = CreateObject("scripting.dictionary" )
For a = 2 To UBound(arr)
d(arr(a, 1)) = d(arr(a, 1)) + arr(a, 3)
Next
brr = Sheets("汇总" ).Range("a1" ).CurrentRegion
For a = 2 To UBound(brr)
n = n + 1
brr(n, 1) = d(brr(a, 1))
Next
Sheets("汇总" ).[c2].Resize(n, 1) = brr
End Sub

回复此楼

» 本帖附件资源列表

欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
附件 1 : 统计.xls

2012-03-17 19:44:11, 48.5 K

» 猜你喜欢

孩子确诊有中度注意力缺陷已经有12人回复
2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复
2026博士申请-功能高分子，水凝胶方向已经有6人回复
论文投稿，期刊推荐已经有4人回复
硕士和导师闹得不愉快已经有13人回复
请问2026国家基金面上项目会启动申2停1吗已经有5人回复
同一篇文章，用不同账号投稿对编辑决定是否送审有没有影响？已经有3人回复

» 本主题相关价值贴推荐，对您同样有帮助:

什么是物理学---从"Physics Abstracts,Classification and Contents"说起已经有50人回复
怎样选择申请的学科代码？已经有7人回复
毕设，数学相关专业，求指导！已经有18人回复
求助：西格玛求和公式推导问题已经有19人回复
【求助】请教1个定积分，如何计算，重金酬谢！！！已经有19人回复
【求助】请教级数求和【已解决】已经有8人回复

1楼2012-03-17 19:44:22

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

emanlee

木虫 (小有名气)

应助: 28 (小学生)
金币: 3521.6
散金: 100
红花: 2
帖子: 116
在线: 125.6小时
虫号: 1466309
注册: 2011-10-29
性别: GG
专业: 计算机应用技术

【答案】应助回帖

感谢参与，应助指数 +1

Sub 按钮1_单击()    子过程
arr = Sheets("数据" ).Range("a1" ).CurrentRegion 取得A1单元格
Set d = CreateObject("scripting.dictionary" ) 创建一个字典d
For a = 2 To UBound(arr)  开始循环
d(arr(a, 1)) = d(arr(a, 1)) + arr(a, 3) 累加
Next  循环
brr = Sheets("汇总" ).Range("a1" ).CurrentRegion  取得A1单元格
For a = 2 To UBound(brr) 开始循环
n = n + 1 计数
brr(n, 1) = d(brr(a, 1))
Next
Sheets("汇总" ).[c2].Resize(n, 1) = brr  计算汇总
End Sub