排序的问题，请大佬们赐教

anson · 发表于 2024-9-20 11:46

问题在附件上，请大佬们赐教，谢谢各位大佬！

kyxfyzg · 发表于 2024-9-20 12:01

看起来就是倒序排一下啊

ykcbf1100 · 发表于 2024-9-20 12:31

问一下楼主：这个10.18的位置怎么会在中间位置呢？你按什么规则来的？常规排序方法排不出来。

anson · 发表于 2024-9-20 13:09

ykcbf1100 发表于 2024-9-20 12:31
问一下楼主：这个10.18的位置怎么会在中间位置呢？你按什么规则来的？常规排序方法排不出来。

只是录入时的数据需要，没有什么规则哦。用过常规的代码也不能按附件上的排序来完成，请大佬指导一下，谢谢了！

anson · 发表于 2024-9-20 13:10

kyxfyzg 发表于 2024-9-20 12:01
看起来就是倒序排一下啊

有什么好方法呢

ykcbf1100 · 发表于 2024-9-20 13:10

anson 发表于 2024-9-20 13:09
只是录入时的数据需要，没有什么规则哦。用过常规的代码也不能按附件上的排序来完成，请大佬指导一下，谢 ...

你都没有规则的，那是想当然了。
你这个结果我排不出来。

kyxfyzg · 发表于 2024-9-20 13:54

anson 发表于 2024-9-20 13:10
有什么好方法呢

Sub test()
arr = Range("a2", Range("a2").End(xlDown).Offset(0, 3))
For i = 1 To UBound(arr)
      For j = 1 To 4
         Cells(i + 1, 7 + j) = arr(UBound(arr) - i + 1, j)
      Next j
Next i
End Sub

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

[求助] 排序的问题，请大佬们赐教

评分