在Excel中，你可以使用VBA（Visual Basic for Applications）编写一个简单的宏来对成绩进行排名。以下是一个示例代码：
vba
复制
Sub RankGrades()
Dim ws As Worksheet
Dim rng As Range
Dim lastRow As Long
Dim i As Long, j As Long
Set ws = ThisWorkbook.Sheets("Sheet1") '将Sheet1替换为你的工作表名
lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row '找到最后一行
Set rng = ws.Range("B2:B" & lastRow) '假设成绩在B列，选择成绩范围
For i = 1 To rng.Rows.Count
For j = i + 1 To rng.Rows.Count
If rng.Cells(i).Value < rng.Cells(j).Value Then '如果当前行的成绩小于下一行的成绩
rng.Cells(i).Value = rng.Cells(j).Value '交换两行的成绩
rng.Cells(j).Value = rng.Cells(i).Value
End If
Next j
Next i
MsgBox "成绩排名已完成！" '完成后显示消息框
End Sub
这段代码首先会找到你工作表中的最后一行，然后选择B列中的成绩范围。然后，它会遍历每一行的成绩，并与下一行的成绩进行比较。如果当前行的成绩小于下一行的成绩，它们就会交换位置。最后，完成后会显示一个消息框。
注意：这段代码假设成绩是数值型的，并且所有的成绩都在同一列中。如果你的情况有所不同，你可能需要修改代码以适应你的需求。
把成绩输入到excel表格，数据--排序，选成绩项，然后用升序或降序排列，之后第一成绩的新一列输入1，然后用鼠标在该格右下角往下拉出各成绩排名
