求助：给H列S排名，VBA代码，用JSA改写。来证明为何没有了第2名和第4名？

中华美德

求助大师：给H列S排名，将VBA代码，用JSA改写。来证明为何没有了第2名和第4名？



Sub 给H列S排名()
Range("S2:S199").ClearContents
'S2=IF(H2="","",RANK(H2,$H$2:$H$199))
Arr1 = "IF(H2=" & Chr(34) & "" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ","
Arr2 = "RANK(H2,$H$2:$H$199)" & ")"
Range("S2:S199") = "=" & Arr1 & Arr2
arr = Range("R2:R199")
Range("R2:R199") = arr
End Sub

汉唐

原因是第一和第二名是并列，rank函数只反映第一和第三名，跳过没有第二和第四名。试着学习练习jsa代码

中华美德

汉唐 发表于 2024-9-9 21:46
原因是第一和第二名是并列，rank函数只反映第一和第三名，跳过没有第二和第四名。试着学习练习jsa代码

数据不止31行时，能否重新改善一下：let arr=Sheets(1).Cells(1,1).Resize(31,19).Value2;

汉唐

请参考附件

中华美德

汉唐 发表于 2024-9-10 13:32
请参考附件

有符号的行不排名
能否再次修改一下JSA代码？也可以用VBA