多组数据，分别排序，谢谢醉眼看尘世和无关岁月和ykcbf1100老师！

lhj323323

老师：

上传的附件里有写好的语句
但只能针对一组数据（ABC列）排序
如果，数据源有多组数据，
我打算用
For j = 1 To UBound(arr, 2) Step 3
...
NEXT

该如何把变量J融入原句里

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

2024-8-11 13:25 上传

点击文件名下载附件

先谢谢老师了！

醉眼看尘世

是不是要这样？
Sub test()
Dim Arr, mRow&, i&, j&, k&, L&, tmPkey%
Arr = [a2].Resize([a1].CurrentRegion.Rows.Count - 1, [a1].CurrentRegion.Columns.Count)
tmPkey = 2
For j = 1 To UBound(Arr, 2) Step 3
    For i = 1 To UBound(Arr, 1) - 1
        For k = i + 1 To UBound(Arr, 1)
            If Arr(k, j - 1 + tmPkey) > Arr(i, j - 1 + tmPkey) Then
                For L = 1 To 3
                    tmp = Arr(i, j + L - 1): Arr(i, j + L - 1) = Arr(k, j + L - 1): Arr(k, j + L - 1) = tmp
                Next L
            End If
        Next k
    Next i
Next j
[L2].Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr
End Sub

无关岁月

求助.7z (15.23 KB, 下载次数: 2)

2024-8-11 13:51 上传

点击文件名下载附件

lhj323323

醉眼看尘世 发表于 2024-8-11 13:36
是不是要这样？
Sub test()
Dim Arr, mRow&, i&, j&, k&, L&, tmPkey%

谢谢老师，测试成功了！

ykcbf1100

这一句代码改一下就行了，就改3个参数。
bsort arr, 2, UBound(arr), j, j + 2, j + 1, False

ykcbf1100

简化一下代码。

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     Application.EnableEvents = False
   
4.     With Sheet1
   
5.         myr = .[a65536].End(xlUp).Row
   
6.         arr = .Range("a1:f" & myr)
   
7.         For j = 1 To UBound(arr, 2) Step 3
   
8.             bsort arr, 2, UBound(arr), j, j + 2, j + 1, False
   
9.         Next
   
10.         .[l1].CurrentRegion.ClearContents
    
11.         .[l1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
12.     End With
    
13.     Application.ScreenUpdating = True
    
14.     Application.EnableEvents = True
    
15. End Sub

复制代码

蜗牛等我

乐于助人，感恩论坛