Re: [VBA ] 請問如何運用VBA計算排名

[chungyuandye (養花種魚數月亮看星星)]

※ 引述《jackie30219 (凌晨三點鐘)》之銘言：
: 不好意思！
: 這學期才開始學VBA
: 完全是新手上路
: 這週有個作業
: 大概就是做全班的成績統計之類的
: 前兩關算平均跟加總成績我都破關了
: 可最後一樣
: 要計算全班的排名
: 我怎麼想都寫不出來
: 不知道有人能幫幫小弟我嗎？
: 大概狀況是全班有４５名同學
: 排名列是從(２１，４)到(２１，４８)
: 謝謝大家

sub test()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
Range(cells(4,21),cells(48,21)).Select
For i = 1 To 45
   Cells(i + 3, 2).Value = Fn.Rank(Selection.Item(i), Selection)
Next
End Sub


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 118.232.189.101
推 jackie30219:我破關了  感謝您!!!