ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 298|回复: 18

[求助] 谁能把这个成绩统计完善一下

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-2-12 21:04 | 显示全部楼层 |阅读模式
不喜欢太复杂的
1.加入年级排名和班级
2.缺考分数空的不计算平均分
3.优生率改为自定义分

总成绩及统计表.zip

50.73 KB, 下载次数: 11

TA的精华主题

TA的得分主题

发表于 2020-2-13 04:59 | 显示全部楼层
3.优生率改为自定义分  ------- "率" -------表达用词错误

TA的精华主题

TA的得分主题

发表于 2020-2-13 10:23 | 显示全部楼层
本帖最后由 3190496160 于 2020-2-13 17:56 编辑

Sub 排名次()
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
With Sheets("总成绩册")
    ws = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:i" & ws)
     .Range("a3:i" & ws) = Empty
    For i = 3 To UBound(ar)
        If Trim(ar(i, 1)) <> "" And Trim(ar(i, 2)) <> "" Then
            d(Trim(ar(i, 1))) = ""
        End If
    Next i
    For Each k In d.keys
        n = 0
        dc.RemoveAll
        ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
        For i = 3 To UBound(ar)
            If Trim(ar(i, 1)) = k Then
                n = n + 1
                dc(Trim(ar(i, 2))) = ""
                For j = 1 To UBound(ar, 2)
                    br(n, j) = ar(i, j)
                Next j
            End If
        Next i
        For i = 1 To n
            For s = i + 1 To n
                If br(i, 7) < br(s, 7) Then
                    For j = 1 To UBound(br, 2)
                        k1 = br(i, j)
                        br(i, j) = br(s, j)
                        br(s, j) = k1
                    Next j
                End If
            Next s
            br(i, 9) = i
        Next i
        For Each kc In dc.keys
            m = 0
            ReDim brr(1 To n, 1 To UBound(br, 2))
            For i = 1 To n
                If Trim(br(i, 2)) = kc Then
                    m = m + 1
                    For j = 1 To UBound(br, 2)
                        brr(m, j) = br(i, j)
                    Next j
                End If
            Next i
            For i = 1 To m
                For s = i + 1 To m
                    If brr(i, 7) < brr(s, 7) Then
                        For j = 1 To UBound(brr, 2)
                            k2 = brr(i, j)
                            brr(i, j) = brr(s, j)
                            brr(s, j) = k2
                        Next j
                    End If
                Next s
                brr(i, 8) = i
            Next i
            rs = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Cells(rs, 1).Resize(m, UBound(brr, 2)) = brr
        Next kc
    Next k
End With
  MsgBox "OK!"
End Sub

TA的精华主题

TA的得分主题

发表于 2020-2-13 10:33 | 显示全部楼层
本帖最后由 3190496160 于 2020-2-13 17:57 编辑

总成绩及统计表.rar (106.32 KB, 下载次数: 12)

TA的精华主题

TA的得分主题

发表于 2020-2-13 15:38 | 显示全部楼层
借用楼主的这个问题和附件,问个问题,如图如示,每个班级中间 如果保留几行的空行,然后排序班级的和年级的如何处理这个排序~~~中间的空行不删除就是用来区分开每个班级的隔档用
QQ图片20200213153448.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-13 15:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-2-13 16:22 | 显示全部楼层
FOB_FN_L 发表于 2020-2-13 15:38
借用楼主的这个问题和附件,问个问题,如图如示,每个班级中间 如果保留几行的空行,然后排序班级的和年级 ...

删除空行排完序后再加上空行。

TA的精华主题

TA的得分主题

发表于 2020-2-13 16:37 | 显示全部楼层
FOB_FN_L 发表于 2020-2-13 15:38
借用楼主的这个问题和附件,问个问题,如图如示,每个班级中间 如果保留几行的空行,然后排序班级的和年级 ...

自己的问题最好开新贴,不要寄居在别人贴子中。

TA的精华主题

TA的得分主题

发表于 2020-2-13 16:55 | 显示全部楼层
chxw68 发表于 2020-2-13 16:37
自己的问题最好开新贴,不要寄居在别人贴子中。

和他这个问题相似,所以就借用楼主的问一下,您说的那种排完再加空行的就行了~~~只是想知道原格式不变的情况下怎么实现,空行删除再加那样我早就弄完了~~~~~~~

TA的精华主题

TA的得分主题

发表于 2020-2-13 16:56 | 显示全部楼层
chxw68 发表于 2020-2-13 16:22
删除空行排完序后再加上空行。

截图也是楼主的附件中的数据的,不是我的,只是在楼主的问题上提了个问题~~~~
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-2-17 06:27 , Processed in 0.394982 second(s), 22 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表