请大神进来帮帮忙，给您练练手！！！

bluingsky

现在有一个学校的姓名，班级和成绩，如何用VBA实现只要班级总分前30名，其余的都删除。

bluingsky

刚不知道怎么传附件，就传在了这里，而且只能打包上传，希望大神不要嫌麻烦。

xgy一飞

Sub 测试()
On Error Resume Next
Dim rng As Range, i As Integer, j As Integer, m As Integer, n As Integer
For i = 926 To 901 Step -1
n = 0
rng = Nothing
For j = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(j, 3).Value = i Then
  n = n + 1
   If rng Is Nothing Then
   Set rng = Cells(j, 3)
   Else
   Set rng = Union(rng, Cells(j, 3))
   End If
End If
Next j
If n < 30 Or n = 30 Then GoTo line
If n > 30 Then
   For m = n To 31 Step -1
   Rows(rng.Rows(m).Row).Delete
   Next m
End If
line:
Next i
End Sub