[已解决]求助：能否在成绩分数表内提取各个报考职位的报考人数、缺考人数

qinhuan66

求助：能否在成绩分数排名表内提取各个报考职位的报考人数、缺考人数（注:缺考有时为0,有时候为缺考）、考试人数（为有分数的考生）、最高分（指本职位最高分）、最低分（指本职位最低分）、平均分（指本职位平均分）到成绩统计表内。谢谢
如果能在成绩统计表内执行宏命令又怎么改。谢谢
成绩统计.rar (51.91 KB, 下载次数: 18)

2013-6-20 09:17 上传

点击文件名下载附件

以下这条宏只能在资料表内运行，也只能提取到报考职位。
Private Sub CommandButton4_Click()
Dim d As Object
Dim i As Long
Set d = CreateObject("scripting.dictionary")
For i = 3 To Range("B2003").End(xlUp).Row
    d(Cells(i, 2).Value) = ""   '取值2为B列
Next
Sheets("成绩统计").Range("B3:B1000").ClearContents '先删除B列2至1000的单元格数据
s = Sheet1.Cells(Rows.Count, 3).End(3).Row '没此句时没值时出错
    If s > 2 Then '没此句时没值时出错
Sheets("成绩统计").[B3].Resize(d.Count) = Application.Transpose(d.Keys) '写入地址为B3行开始
End If '没此句时没值时出错
    Sheets("成绩统计").Select '操作完成转到资料分析
End Sub

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-6-20 16:48

qinhuan66 发表于 2013-6-20 09:43
谢谢您函数我会用，我就是觉得函数的话每次打开工作薄都在运用数据量大的话很慢。不过还是要谢谢您。:han ...

303356-VBA-字典-成绩统计.rar (47.38 KB, 下载次数: 29)

2013-6-20 16:48 上传

点击文件名下载附件

跳转到最佳答案楼层

ligh1298

没用VBA，用函数行吗？

qinhuan66

ligh1298 发表于 2013-6-20 09:41
没用VBA，用函数行吗？

谢谢您函数我会用，我就是觉得函数的话每次打开工作薄都在运用数据量大的话很慢。不过还是要谢谢您。

那么的帅

qinhuan66 发表于 2013-6-20 09:43
谢谢您函数我会用，我就是觉得函数的话每次打开工作薄都在运用数据量大的话很慢。不过还是要谢谢您。:han ...

303356-VBA-字典-成绩统计.rar (47.38 KB, 下载次数: 29)

2013-6-20 16:48 上传

点击文件名下载附件

qinhuan66

那么的帅 发表于 2013-6-20 16:48

如果加个边框应该怎么弄?
这样可以吗?
Sheet4.Range("a2").CurrentRegion.Borders.LineStyle = 1 '加边框

那么的帅

qinhuan66 发表于 2013-6-20 16:54
如果加个边框应该怎么弄?
这样可以吗?
Sheet4.Range("a2").CurrentRegion.Borders.LineStyle = 1 '加边 ...

303356-VBA-字典-成绩统计.rar (50.16 KB, 下载次数: 14)

2013-6-20 17:02 上传

点击文件名下载附件

zjyxp

向帅哥老师学习