Question

如何用EXCEL VBA为EXCEL中的一列数据排名次

我想用VBA给EXCEL中的一列数据排名次，请写出代码示例，谢谢

Answer 1

这样行不行？我调试放在按钮里，你可以入在wordsheet-change里代码如下-------------------------------------------------------------------------------------------Sub 按钮2_Click()
For i = 3 To 100
aaa = ""
aaa = Application.WorksheetFunction.Rank(Cells(i, 1).Value, Range("A:A"), 1)
On Error Resume Next
Cells(i, 2).Value = aaa
Next i
End Sub
-----------------------------------------------------------------------------------------------我这里for 了100行，你自已改。aaa初值为空，否则rank空记录出错时 On Error Resume Next 会输出最后个序号。

Answer 2

EXCEL中的RANK函数可以实现排名，不需要用VBA