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

lhj323323 · 发表于 2024-8-20 05:15

本帖最后由 lhj323323 于 2024-8-20 16:51 编辑

老师

上传的附件里有写好的语句
能针对数组arr的【单】标准排序
我想改为针对数组arr的【多】标准排序

求助.rar (12.3 KB, 下载次数: 9)
示意图如下
快照6.png

老师如有空，请帮忙看看，先谢谢了。

ykcbf1100 · 发表于 2024-8-20 06:50

这个不一定要用数组排序啊，直接多列排序就行。

ykcbf1100 · 发表于 2024-8-20 06:51

排序。。。

Sub ykcbf() '//2024.8.20
arr = [a1].CurrentRegion
[k1].Resize(UBound(arr), UBound(arr, 2)) = arr
r = Cells(Rows.Count, "k").End(3).Row
Set Rng = [k2].Resize(r - 1, 3)
Rng.Sort key1:=Rng.Columns(2), order1:=2, key2:=Rng.Columns(3), order2:=1, Header:=2
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2024-8-20 06:58

如果一定要用数组排序，那就这样吧。

ykcbf1100 · 发表于 2024-8-20 06:58

多列数组排序的话，排序自定义函数要换一个。

Sub ykcbf2() '//2024.8.20 2维数组多列自定义排序
r = Cells(Rows.Count, 1).End(3).Row
arr = [a2].Resize(r - 1, 3)
msort2 arr, 2, -1, 3, 1
[k2].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub
Function msort2(arr, ParamArray sortParams() As Variant) As Variant
Dim i As Integer, j As Integer
Dim temp As Variant
For i = LBound(arr, 1) To UBound(arr, 1) - 1
For j = i + 1 To UBound(arr, 1)
Dim compareResult As Integer
compareResult = 0
Dim k As Integer
For k = LBound(sortParams) To UBound(sortParams) Step 2
Dim column As Integer
Dim sortOrder As Integer
column = sortParams(k)
sortOrder = sortParams(k + 1)
If arr(i, column) > arr(j, column) Then
compareResult = sortOrder
Exit For
ElseIf arr(i, column) < arr(j, column) Then
compareResult = -sortOrder
Exit For
End If
Next k
If compareResult <> 0 Then
If compareResult > 0 Then
For k = LBound(arr, 2) To UBound(arr, 2)
temp = arr(i, k)
arr(i, k) = arr(j, k)
arr(j, k) = temp
Next k
End If
End If
Next j
Next i
msort2 = arr
End Function

复制代码

lhj323323 · 发表于 2024-8-20 07:09

ykcbf1100 发表于 2024-8-20 06:50
这个不一定要用数组排序啊，直接多列排序就行。

谢谢老师

这是因为，本次的求助的语句，是我之前写的【更大的语句】中的一部分
就是【针对数组】的一系列操作。

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

求助.7z (14.68 KB, 下载次数: 3)

Qs18 · 发表于 2024-8-20 07:27

Sub qs()
Dim rng As Range
Set rng = Sheet1.Range("a1:c" & Sheet1.Cells(Rows.Count, 3).End(3).Row)
rng.Sort key1:=Columns(2), order1:=2, key2:=Columns(3), order2:=1, Header:=1
End Sub

今铭昔 · 发表于 2024-8-20 07:28

lhj323323 · 发表于 2024-8-20 08:06

本帖最后由 lhj323323 于 2024-8-20 08:08 编辑

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

针对4楼的数组排序

我把数据源由一组（3列），改为N组（每组3列）
如下

快照3.png

但红框内的语句运行后，结果数据，并不正确，不知我错在哪儿了

求助3.rar (18.99 KB, 下载次数: 6)

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

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

评分

评分