作业帮 > 综合 > 作业

excel 组合计算假如我有一张excel表,列A有张三,李四,王五,赵六,李红,张英六个人 每个人都有自己的成绩,张三

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 02:16:46
excel 组合计算
假如我有一张excel表,列A有张三,李四,王五,赵六,李红,张英六个人 每个人都有自己的成绩,张三,80 英语80 李四 英语90 后面的四个数据我就不写了.
我想问一下,从A列中随机找3个人组合一些,并且后面的成绩也跟着A列同时动,意思就是不管名字怎么组合,后面的成绩都跟名字是一一对应的.组合完以后,计算每3个人语文的平均成绩.
请问这个怎么实现,
比如你的数据在A、B、C、D列,从第二行开始,在后面E列E2单元格,加一个=RAND()函数,下拉到E7,然后选中A2:E7,按E列排序.再用=AVERAGE(C2:C4),那么就是随机的平均成绩了.
排序的操作可以录个宏.
再问: 是把六行组合一下,随机的3行一组,共20种组合,然后把这20种组合分别求平均值,共20个平均值
再答: 你到网上看一下这个帖子http://club.excelhome.net/forum.php?mod=viewthread&tid=658324&highlight= 你的需求使用EXCEL函数是可以实现的,有点复杂。 使用VBA实现的话反而会简单一些,甚至可以一键搞定。需要的话留言
再问: 不太懂呀,能帮我一下吗
再答: Sub test() Dim j As Long j = 1 Dim artemp(1 To 5, 1 To 4) Dim arr(1 To 6) For i = 1 To 6 arr(i) = Range("a" & i + 1 & ":d" & i + 1) Next i For r1 = 1 To 4 For co = 1 To 4 artemp(1, co) = arr(r1)(1, co) Next co For r2 = r1 + 1 To 5 For co = 1 To 4 artemp(2, co) = arr(r2)(1, co) Next co For r3 = r2 + 1 To 6 For co = 1 To 4 artemp(3, co) = arr(r3)(1, co) Next co artemp(4, 1) = "平均值" artemp(4, 2) = "=SUBTOTAL(101,R[-6]C:R[-1]C)" artemp(4, 3) = "=SUBTOTAL(101,R[-6]C:R[-1]C)" artemp(4, 4) = "=SUBTOTAL(101,R[-6]C:R[-1]C)" Range("f" & j * 5 - 3).Resize(5, 4) = artemp j = j + 1 Next r3 Next r2 Next r1 End Sub 将以上代码复制到Visual basic编辑器 代码界面 Alt+F11 运行即可。数据区域在"A1:D7"按照你的图片做的,目标数据区域不匹配的情况下,修改这句代码 arr(i) = Range("a" & i + 1 & ":d" & i + 1) 即可
再问: 厉害呀,高手,能告诉一下qq吗,做个朋友怎样,以后遇到困难向您请教
再答: 已私信