Sub 筛选最高分项()
Set endrng = Cells(2, Cells.Find("总分", lookat:=xlWhole))
Set t = Application.WorksheetFunction.CountA(Sheets("Sheet1 (2)").Columns(1))
Set r = Range(Cells(2, endrng), Cells(t, endrng))
maxx = Application.WorksheetFunction.Max(r)
For pos = 2 To Total
If Cells(pos, c).Value < maxm Then
Rows(pos).Select
End If
Next
End Sub
思路是目的是查出总分所在的列数，然后从第二列开始遍历每一行，删除列数低于最高值的。
但是各种报错，希望有大神帮忙看看

Set endrng = Cells(2, Cells.Find("总分", lookat:=xlWhole).Column)
Let t = Application.WorksheetFunction.CountA(Sheets("Sheet1 (2)").Columns(1))
这个Let是可省略的
如果要循环删除，要从后向前循环
For pos = t To 2 Step -1
删除是Delete

k = Worksheets(bu).Cells.Find(x, LookAt:=xlWhole).Column

楼主估计已经成高手了，2018年的帖