| 查看: 862 | 回复: 3 | ||
[求助]
求和代码解析
|
|
如附件中，将表“数据”中每天每个点的价格求平均值和求和，以下是求和的代码，可我看不懂，各位老师能解析一下每条语句的作用吗？ 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
» 猜你喜欢
极限拉扯，如何抉择
已经有15人回复
-
申请科研项目纯靠实力能成功吗？
已经有8人回复
-
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 什么是物理学---从"Physics Abstracts,Classification and Contents"说起
已经有50人回复
- 怎样选择申请的学科代码？
已经有7人回复
- 毕设，数学相关专业，求指导！
已经有18人回复
- 求助：西格玛求和公式推导问题
已经有19人回复
- 【求助】请教1个定积分，如何计算，重金酬谢！！！
已经有19人回复
- 【求助】请教级数求和【已解决】
已经有8人回复
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 |
2楼2012-03-18 08:01:16
3楼2012-03-18 22:00:31
 |
4楼2012-03-25 18:29:12
200