Excel中如果能有這個函數,中國式排名就很簡單了!

Excel中如果能有這個函數,中國式排名就很簡單了!

要根據學生的考試成績計算下排名，直接用Excel中內置的函數RANK，結果如下：

有兩位同學為并列第四，可之后就直接第六名了，第五名不見了，這并不符合我們的習慣，從小到大，每次考試后并列的名次很常見，可是不會缺少一個中間的名次。

怎么解決上述問題呢?

參加過我函數培訓班的同學寫這個公式應該不成問題：=SUMPRODUCT(($B$2:$B$20>=B2)/(COUNTIF($B$2:$B$20,$B$2:$B$20)))懂數組的基礎，知道其中套路的話，這公式也不難理解。

如果你會VBA的話，寫個自定義函數，以后就可以這樣了：

或者復制下面的代碼，另存為加載宏，需要的時候加載下，不需要的時候取消加載，這也是極好的。

代碼如下：

‘rng1 代表需要排名的單元格，rng2代表排名區域Function crank(rng1 As Range, rng2 As Range) Dim arr, brr(), crr(), m&, i& arr = rng2 m = UBound(arr) ReDim brr(1 To m), crr(1 To m) For i = 1 To m brr(i) = Application.CountIf(rng2, arr(i, 1)) Next For i = 1 To m If rng1.Value <= arr(i, 1) Then crr(i) = 1 / brr(i) Else crr(i) = 0 End If Next crank = Application.Sum(crr)End Function

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。