针对数组的多标准排序，谢谢无关岁月、ykcbf1100、usedrange老师！

usedrange

看看是不是这样

usedrange

1. Option Explicit
   
2. Sub TEST2()
   
3.     Dim ar, t, i%, j%, z%, n%
   
4.     Application.ScreenUpdating = False
   
5.     ar = [A1].CurrentRegion.Value
   
6.     n = 2
   
7.     Do While n < 4
   
8.         For i = 2 To UBound(ar)
   
9.             For j = i + 1 To UBound(ar)
   
10.                 If n = 2 Then
    
11.                     If ar(i, n) < ar(j, n) Then
    
12.                         For z = 1 To 3
    
13.                             t = ar(i, z)
    
14.                             ar(i, z) = ar(j, z)
    
15.                             ar(j, z) = t
    
16.                         Next z
    
17.                     End If
    
18.                 ElseIf n = 3 Then
    
19.                     If ar(i, n) > ar(j, n) Then
    
20.                         For z = 1 To 3
    
21.                             t = ar(i, z)
    
22.                             ar(i, z) = ar(j, z)
    
23.                             ar(j, z) = t
    
24.                         Next z
    
25.                     End If
    
26.                 End If
    
27.             Next j
    
28.         Next i
    
29.         n = n + 1
    
30.     Loop
    
31.     [k1].Resize(UBound(ar), 3) = ar
    
32.     Application.ScreenUpdating = True
    
33.     Beep
    
34. End Sub

复制代码

lhj323323

gwjkkkkk 发表于 2024-8-20 09:55
请参考附件，排二次就可以了。。。

老师

运行两次的话
每次参与排序的数据源，并不是完整的三列？

求助5.rar (15.3 KB, 下载次数: 2)

2024-8-20 11:09 上传

点击文件名下载附件

生成的结果，与我想要的，不一样。
请看下图里的红、蓝箭头。

lhj323323

ykcbf1100 发表于 2024-8-20 06:58
如果一定要用数组排序，那就这样吧。

发现问题所在了

您在4楼定义的Arr2
Arr2 = [a2].Resize(r - 1, 3)

而原始数组Arr2，应是
Arr2 = [a1].Resize(r - 1, 3)

lhj323323

ykcbf1100 发表于 2024-8-20 09:13
那相应代码改一下就行了。

我在10楼的代码，应还是错的。
看来，老师，你建议的【分开定义不同的数组】，可能是唯一的解决办法了。

lhj323323

usedrange 发表于 2024-8-20 10:10

老师：
运行后，生成的结果里
红字所在的记录，应上移

usedrange

lhj323323 发表于 2024-8-20 12:32
老师：
运行后，生成的结果里
红字所在的记录，应上移

试试这个吧

lhj323323

无关岁月 发表于 2024-8-20 07:20

无关岁月老师：


单组（3列）的数源，生成成功了
我想把它改成多组（每组3列），生成的数据，还是没有对
老师如有空，请帮忙看看。
谢谢了。

求助3.rar (22.8 KB, 下载次数: 1)

2024-8-20 14:22 上传

点击文件名下载附件

（附件里，有单组和多组的两个按纽）

无关岁月

lhj323323 发表于 2024-8-20 14:23
无关岁月老师：

ykcbf1100

lhj323323 发表于 2024-8-20 12:29
我在10楼的代码，应还是错的。
看来，老师，你建议的【分开定义不同的数组】，可能是唯一的解决办法了。

从自定义函数看，必须分开处理。