如何求分數順位

shi353

我有1評分表，想利用宏碼來評分 ，雖用排序後手填順位也可，但也很費功，
想請先進們提供宏碼來做，好像是字典法應該可以做到吧!  順便學習一下  先謝謝了

liulang0808

=RANK(B4,B4:B18)

liulang0808

rank貌似不可以，你这个事中国式排名的

shi353

的確，用rank公式出來的結果，差1號! 中間某些順位數字不見了， 不是我的數字!   
不知可否用dictionary來做呢?

office8424

Sub aa()
Set d = CreateObject("scripting.dictionary")
For i = 4 To 18
d(Cells(i, 2).Value) = ""
Next i
aaaa = Application.WorksheetFunction.Transpose(d.keys)
For j = 4 To 18
Cells(j, 3) = Application.WorksheetFunction.Rank(Cells(j, 2).Value, aaaa)
Cells(j, 3) = Cells(j, 3).Value
Next j
End Sub
红色应该怎么写请教!!!代码运行错误

bluexuemei

1. Sub t()
   
2. '需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/ActiveRuby.msi
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
4. ojs.eval ("def aa(aa) $aa=aa.flatten! end")
   
5. y = ojs.Run("aa", Range("b4", [b4].End(4)).Value)
   
6. y = ojs.eval("$aa.map{|x|[$aa.uniq.map{|n|n=(n>x)?1:0}.reduce(:+)+1]}")
   
7. [g4].Resize(UBound(y) + 1) = y
   
8. Set ojs = Nothing
   
9. 'Stop
   
10. End Sub
    

复制代码

yjh_27

参见附件。