成绩统计难题

lsc900707 · 发表于 2016-4-29 19:06

本帖最后由 lsc900707 于 2016-4-29 19:10 编辑

请哪位大神帮忙解决vba代码，不胜感激！预祝大家劳动节快乐！

lsc900707 · 发表于 2016-4-29 21:19

真心求大神帮忙。qq1512381669

lsc900707 · 发表于 2016-4-29 21:59

本帖最后由 lsc900707 于 2016-4-29 22:02 编辑

难就难在多次排名！

lsc900707 · 发表于 2016-4-30 09:38

请大神们费心了，谢谢！

一指禅62 · 发表于 2016-4-30 11:18

Sub 排名次()
Dim R&
Sheets("成绩").Select
R = Range("A65536").End(3).Row
Range("H2:H" & R).FormulaR1C1 = "=SUM(RC3:RC7)"
Range("I2:J" & R).FormulaR1C1 = "=SUMPRODUCT((R2C1:R" & R & "C1=RC1)*(R2C8:R" & R & "C8>RC8))+1"
Range("J2:J" & R).FormulaR1C1 = "=RANK(RC8,R2C8:R" & R & "C8)"
Range("H2:J" & R) = Range("H2:J" & R).Value
End Sub

复制代码

lsc900707 · 发表于 2016-4-30 11:49

一指禅62 发表于 2016-4-30 11:18

大师，先行谢过了。统计表的有在写吗？

lsc900707 · 发表于 2016-4-30 16:51

一指禅62 发表于 2016-4-30 11:18

大神，最主要的是“统计表”呀，还要麻烦你了！

hyefeifei · 发表于 2016-4-30 21:56

lsc900707 发表于 2016-4-30 16:51
大神，最主要的是“统计表”呀，还要麻烦你了！

你这个不难，不过你得讲清楚你的表，比如表中是456三个年级的，还是一个年级的？等等

lsc900707 · 发表于 2016-5-1 01:01

hyefeifei 发表于 2016-4-30 21:56
你这个不难，不过你得讲清楚你的表，比如表中是456三个年级的，还是一个年级的？等等

大师，这只是一个年级的。成绩表A列是我从考号里取出来的班级代码。主要是要根据各班各科的一分两率多次排名，这是其一。其二是要将结果在一张总结表里通过A2的下拉菜单查询出来。先谢谢你的关注。更期待你的大作！

hyefeifei · 发表于 2016-5-1 06:58

lsc900707 发表于 2016-5-1 01:01
大师，这只是一个年级的。成绩表A列是我从考号里取出来的班级代码。主要是要根据各班各科的一分两率多次 ...

见附件：

成绩核算.rar (94.14 KB, 下载次数: 18)

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

[求助] 成绩统计难题