请教各位老师，帮忙把数据进行中国式排名 vba

niwopy · 发表于 2023-4-5 19:27

niwopy · 发表于 2023-4-6 09:17

请各位大神帮忙看一下啊。。。。。。。。

liulang0808 · 发表于 2023-4-6 09:22

https://club.excelhome.net/threa ... tml?_dsign=dd7740d8
供参考。。。。。

niwopy · 发表于 2023-4-6 09:43

liulang0808 发表于 2023-4-6 09:22
https://club.excelhome.net/thread-1170523-1-1.html?_dsign=dd7740d8
供参考。。。。。

谢谢，数据大自定义公式运行太慢，能不能帮我用vba运行。。。。。本人不是太懂vba

liulang0808 · 发表于 2023-4-6 12:21

Sub 按钮2_Click()
Set d = CreateObject("scripting.dictionary")
arr = Sheets(2).UsedRange
For i = 1 To UBound(arr, 2)
      d.RemoveAll
      For j = 2 To UBound(arr)
         If Len(arr(j, 1)) > 0 Then d(Val(arr(j, i))) = 0
      Next j
      For j = 1 To d.Count
         s = WorksheetFunction.Small(d.keys, j)
         d(s) = j
      Next j
      For j = 2 To UBound(arr)
         If Len(arr(j, 1)) > 0 Then arr(j, i) = d(Val(arr(j, i)))
      Next j
Next i
Sheets(3).[a1].Resize(UBound(arr), UBound(arr, 2)) = arr

End Sub

liulang0808 · 发表于 2023-4-6 12:21

附件内容供参考。。。。。。。。。。。

xzcdcak · 发表于 2023-4-6 20:17

这个就可以

		自动登录	找回密码
密码			免费注册

[求助] 请教各位老师，帮忙把数据进行中国式排名 vba

评分

评分