如何在内存中对二维数组进行排名

aroffice

bluexuemei 发表于 2015-1-4 14:22
如果积分相同，怎么处理？

积分相同，名次相同的嘛
前面给出了结果的！

yjh_27

aroffice 发表于 2015-1-4 16:14
积分相同，名次相同的嘛
前面给出了结果的！

实际是问你要中式排名次还是西式排名次？

我的附件是中式
Sub aa22()
R = Range("a" & Rows.Count).End(xlUp).Row

arr = Range("a2:d" & R)
brr = YjhSort(arr, "a,-1", "2,4", "R,-4;1;3;0.01")    '
Range("e2").Resize(UBound(brr), 1) = brr
End Sub
如要西式 将3 改2