補充1。這個問題可以用公式來解決，T3的公式是:
= RANK（B3，B3:AJ3美元）
向右拉或向下拉。
補充2。上圖中的VBA電碼文本如下:
選項顯式
子宏1（）
Dim arr1，arr2，i & amp強生公司。k & amp
arr 1 = Range（“B2:r20“）‘請根據需要將20修改為結束行。
ReDim arr 2（1到UBound（arr 1），1到UBound（arr 1，2））
對於i = 1至下界（arr1）
對於j = 1至下界（arr1，2）
通過循環，計算第I行中大於arr 1（I，j）到arr 2（I，j）的數據數量。
對於k = 1至下界（arr1，2）
if arr 1（I，k）& gt；arr 1（I，j）那麽arr 2（I，j）= arr 2（I，j）+1
下壹個k
arr 2（I，j）= arr 2（I，j）+1‘乘以+1即為排名。
下壹個j
接下來我
範圍（“t2”）。resize（UBound（arr 2），UBound（arr 2，2））= arr 2
末端接頭