如何将学校各班级各科成绩的前N名或后N名的学生详细信息快速导出

作者：绿色风分类：时间：2022-08-18 浏览：272

楼主 yjzstar	Q:已知某学校各班级学生的各科成绩，如何快的将所有班级学生各科成绩的前N名或后N名提取出来？ A:利用VBA，通过循环排序和取数能快速的将所有班级学生各科成绩的前N名或后N名提取出来，具体如附件！ Sub dd() Dim rng As Range Dim rng1 As Range Dim n As Integer, n1 As Integer, n2 As Long Application.ScreenUpdating = False n = InputBox("如需要提取前N名输入2；后N名输入1：") n1 = InputBox("请输入需要提取的名次数，如提取前10名则输入10") With Sheet3 .Activate n2 = .Cells(Rows.Count, 1).End(xlUp).Row Set rng = .Range("A1:L1182") End With Sheet2.Range("a2:e" & Sheet2.Cells(Rows.Count, 1).End(xlUp).Row).Clear For i = 4 To 12 With Sheet3 rng.Sort .Range("c1"), 1, .Columns(i), , n, , , xlYes Set rng1 = .Range("C2") End With x = 0 Do If rng1 <> rng1.Offset(-1, 0) Then If rng1.Offset(0, i - 3) <> "" Then For j = 0 To n1 - 1 With Sheet2 .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = rng1.Offset(, -2) .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = rng1.Offset(, -1) .Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = rng1 .Cells(Rows.Count, 4).End(xlUp).Offset(1, 0) = Sheet3.Range(Cells(1, i), Cells(1, i)) .Cells(Rows.Count, 5).End(xlUp).Offset(1, 0) = rng1.Offset(0, i - 3) End With x = x + 1 Set rng1 = rng1.Offset(1, 0) Next End If End If x = x + 1 Set rng1 = rng1.Offset(1, 0) Loop Until x = n2 Next Application.ScreenUpdating = True End Sub 有难度，提取数值，请求帮助！.rar
2楼 wise	还用65536
3楼 yjzstar	W版，我错了，下次一定改！
4楼 jpwjpw	yjzstar老师您好，请帮忙再修改一下代码，谢谢！（有一点变动），都怪我以前没有考虑周全。拜托了！附件我已经发了。请帮忙修改代码，谢谢！.zip
5楼 yjzstar	晚上回去看下哦！白天不能上网
6楼 jpwjpw	好的，谢谢！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表