VBA内存二维数组对象的多key稳定排序算法

jhegzwjb2016 · 发表于 2022-4-16 18:20

谢谢老师分享，经常学习你分享的技巧！崇拜！

lxw6 · 发表于 2022-5-16 18:11

反馈个问题：汉字排序有问题。
要是能修复就最好了

gwjkkkkk · 发表于 2022-5-16 20:10

谢谢楼主分享。。。

shenjianrong163 · 发表于 2022-8-22 22:41

老师，如果数据从第3行开始，下面这个多Key排序代码怎样改？谢谢！
Sub test1()
Dim ar, sr, sr2, i&, j&, tms#

'假设待排序原始数据是在A1开始的多行、7列区域中
sr = Array(1, 3, 5, 7)  '需要排序的列的权重顺序
sr2 = Array(1, 2, 2, 1) '需要排序的列的升降顺序(1为升序、2为降序)

Application.ScreenUpdating = False '禁止刷屏
      For j = UBound(sr) To 0 Step -1 '逆序循环
         [a1].Sort [a1].Offset(, sr(j) - 1), sr2(j) '每次排序1列
      Next
Application.ScreenUpdating = True

End Sub

blackttea1 · 发表于 2022-8-23 08:34

谢谢楼主分享。。。

伶俐的毛豆 · 发表于 2024-1-15 18:41

老师，能帮忙写一个多条件排序二维数组的代码吗

mythqiu · 发表于 2024-6-9 08:54

感谢，代码拿来直接用了。

ytmpgght · 发表于 2024-6-19 09:30

又涨见识了，原来数组可以排序。

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

[原创] VBA内存二维数组对象的多key稳定排序算法