数组如何进行排序

wanghan519

vba小白从头学习 发表于 2022-9-30 16:47
就和 姓名， 语文成绩， 数学成绩 结构类似， 先按照数学成绩从高到底排序，然后按照语文成绩从低到高排 ...

如果是csv，大概这样

vba小白从头学习

gwjkkkkk 发表于 2022-9-30 16:46
https://club.excelhome.net/forum.php?mod=viewthread&tid=1502139&mobile=2

这个帖子太深奥。。。我这个例子就需要双Key排序，因为数据来源不能使用Excel的Sort排序，所以才求助如何使用数组实现

wodewan

小象啊啊

请参考代码。

1. Sub 结果()
   
2.     arr1 = Sheet6.Range("a1:c" & Sheet6.Range("a" & Rows.Count).End(xlUp).Row)
   
3.     For i = 2 To UBound(arr1, 1)
   
4.         For j = i + 1 To UBound(arr1, 1)
   
5.             If arr1(i, 3) < arr1(j, 3) Then
   
6.                 For k = 1 To UBound(arr1, 2)
   
7.                     temp = arr1(j, k)
   
8.                     arr1(j, k) = arr1(i, k)
   
9.                     arr1(i, k) = temp
   
10.                 Next k
    
11.             ElseIf arr1(i, 3) = arr1(j, 3) Then
    
12.                 If arr1(i, 2) > arr1(j, 2) Then
    
13.                     For k = 1 To UBound(arr1, 2)
    
14.                         temp = arr1(j, k)
    
15.                         arr1(j, k) = arr1(i, k)
    
16.                         arr1(i, k) = temp
    
17.                     Next k
    
18.                 End If
    
19.             End If
    
20.         Next j
    
21.     Next i
    
22.     Range("e2").Resize(UBound(arr1, 1), UBound(arr1, 2)) = arr1
    
23. End Sub
    
24. 
    

复制代码

aman1516

vba小白从头学习 发表于 2022-9-30 17:23
这个帖子太深奥。。。我这个例子就需要双Key排序，因为数据来源不能使用Excel的Sort排序，所以才求助如何 ...

就算数组是过程代码生成的，并不代表不能输出啊，用个临时表输出，工作表排序后数组取回，再删除临时数据......这样操作又何妨？
这样的代码简单易懂，每个步骤论坛都有大把示例，查一下，自己都能拼凑出来了

准提部林

數據可能有文本/英文/數字/空格,
若又要多列多條件排序, 用數組排序就顯得繁瑣,
利用空置工作表...借売上市吧!!!

鑫尼达

数组的排序 就是循环加判断了。感觉数据一旦到了数组里面，就都是循环判断解决了。

perfect131

用 虚拟表 sort 即可

excelvlookup

Y先排序后作为字典键，X作为字典数组值，再对每个数组值排序。

creast

perfect131 发表于 2022-10-1 12:40
用 虚拟表 sort 即可

这个方式很好,我工作中经常使用这个方式, 速度也还不错,也很容易理解, 关键是调试的时候太好了,主要中断一个语句就可以进行调试.