自动计算位次的代码

Sub 自动查位次()
'
' 自动查位次 Macro
'
Dim temp0
Dim temp1
Dim temp2
Dim i
For i = 1 To 280 Step 1
temp0 = Range("A" & i).Value
temp1 = Range("D:D").Find(temp0).Row
'MsgBox (temp1)
temp2 = Range("E" & temp1)
Range("B" & i).Value = temp2
Next
End Sub

尝试成功。注意Ａ列为分数，B列待写位次，C列空，D列为一分一档表的分，E列对应Ｄ列分的位次。