| 查看: 618 | 回复: 2 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
forestsong12银虫 (小有名气)
|
[求助]
excel 宏 已有1人参与
|
||
|
在 worksheet 1 的某一列中，随机输入一组数据，编辑宏完成以下内容：、 1 读取输入数据的个数N 2 对输入数据求和Sum 3 取平均值Average=Sum/N 4 将平均值Average输出到该列最后一个数值的下个单元格 例如 在A列中输入1、3、5、7、9则数据的个数N=5 Sum=25 average=5 并将average输出到A6单元格内。 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有7人回复
-
面上没中，邀请各位路过的虫友分析一下分数
已经有7人回复
-
哈尔滨工业大学韩晓军教授课题组招收2027年硕士推免生及博士研究生
已经有3人回复
-
找导师
已经有8人回复
-
国社科又开始会评了，不知道这次命运如何
已经有14人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有13人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有14人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有17人回复
-
学科评审组评审是指会评吗？
已经有5人回复
-
小白求助 投论文要求的highlights应该如何写
已经有4人回复
forestsong12
银虫 (小有名气)
|
3Q |
3楼2014-09-04 08:51:01
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
forestsong12: 金币+10, ★★★★★最佳答案 2014-09-04 08:51:26
感谢参与，应助指数 +1
forestsong12: 金币+10, ★★★★★最佳答案 2014-09-04 08:51:26
|
Sub Macro1() '' Macro1 Macro 'A列随机生成n个随机数字，数字的范围自己根据需要确定 n = Int(Rnd * 100) ''100 以内的整数 For i = 1 To n Sheet1.Range(("A" & i)) = Rnd * 10 ''单元格内生成 10 以内的小数 Next i ''''求和程序 ss = 0 For i = 1 To n ss = ss + Sheet1.Range(("A" & i)) Next i '''给出结果平均值，为了方便看，多空一行 Sheet1.Range(("A" & n + 2)) = ss / n End Sub ========================================== 你把上面的程序，贴到宏里面执行一下，我对宏也不熟悉。起个抛砖引玉的作用。 （不会打开宏的话，先随便录制一个宏，用上面的代码替换就可以了。） |
2楼2014-09-03 23:44:16