直接针对数据的排序，谢谢gwjkkkkk老师、无关岁月和quqiyuan老师！

无关岁月

lhj323323 发表于 2024-8-10 16:59
无关岁月老师：
数据源的第8行，没有纳入排序

把-1去掉
Call bsort(arr, 1, UBound(arr) , 1, UBound(arr, 2), 2)

ww87725244

lhj323323 发表于 2024-8-10 16:37
老师

运行后，要报错

需要安装.Framework 3.5及其以上版本

lhj323323

quqiyuan 发表于 2024-8-10 16:59
参与一下，仅供参考。。。

谢谢quqiyuan老师
测试成功了！

gwjkkkkk

lhj323323 发表于 2024-8-10 16:22
谢谢老师
好像还是没有对

改成 这样就可以了，bSort ar, 2, UBound(ar), 3, 3, 3, False
ar为待排序的数组，排序行范围，2指第二行开始排，ubound(ar)到最后一行，排序列范围第3列到第3列，按第3列进行排序。

lhj323323

gwjkkkkk 发表于 2024-8-10 17:44
改成 这样就可以了，bSort ar, 2, UBound(ar), 3, 3, 3, False
ar为待排序的数组，排序行范围，2指第二 ...

刚才改
bSort ar, 2, UBound(ar), 3, 3, 3, False
为
bSort ar, 2, UBound(ar), 1, 3, 2, False

是否表示
第1-3列为参与排序的范围
按第2列为标准，进行排序。

gwjkkkkk

lhj323323 发表于 2024-8-10 18:00
刚才改
bSort ar, 2, UBound(ar), 3, 3, 3, False
为

对的。。。，默认为升序，降序为false

一招秒杀

不知道我有没理解错，这不就点几下鼠标的Excel 基本操作吗？ 为什么还要引用什么组件，写几十行代码？ My God

lhj323323

gwjkkkkk 发表于 2024-8-10 18:10
对的。。。，默认为升序，降序为false

老师
如果我把数据源由ABC扩展成两组数据，即A-F列
For j = 1 To UBound(arr, 2) Step 3
   
    bsort arr, 2, UBound(arr), 1, 3, 2, False
         'arr为待排序的数组，排序行范围，
              '2指第二行开始排，
                 'UBound(arr)到最后一行，
                             '排序列范围第1列到第3列，按第2列进行排序。
Next
不知该如何把J融入语句里

gwjkkkkk

lhj323323 发表于 2024-8-11 13:23
老师
如果我把数据源由ABC扩展成两组数据，即A-F列
For j = 1 To UBound(arr, 2) Step 3

bsort arr, 2, UBound(arr), j, j, j, False 应该这样吧。

lhj323323

gwjkkkkk 发表于 2024-8-11 16:07
bsort arr, 2, UBound(arr), j, j, j, False 应该这样吧。

这么改的话，生成的结果，与真实结果不符，如下：