vba求助排序。

excelstudyvba

vba求助排序。

cjc209

就是一个二维数组内存排序

excelstudyvba

cjc209 发表于 2022-5-6 17:58
就是一个二维数组内存排序

老师，这么多的代码呀。

excelstudyvba

有没简单的代码实现的？

microyip

用字典记录H列对应G列的值，然后对关键字进行排序，就得到对应的G列数

cjc209

excelstudyvba 发表于 2022-5-6 18:07
有没简单的代码实现的？

我这是用的通用模块 下面的是函数 是固定部分 不是用你这个列子的 一看你就是问外汉 又不是用一次的 有需要内存排序的 我就调出来用就是了 是我的代码库里面的 非常简单 何必每次都要去重复的去写代码????

cjc209

有简单的就是表格排序法 排序后取值就是一回事 只是打乱了源数据  

cjc209

excelstudyvba 发表于 2022-5-6 18:07
有没简单的代码实现的？

就相当于6-7句代码  

excelstudyvba

microyip 发表于 2022-5-6 18:08
用字典记录H列对应G列的值，然后对关键字进行排序，就得到对应的G列数

怎么写呢，麻烦老师写个。

cui26896

1. Sub try1()
   
2. Dim cnn As Object, Rst As Object, SQL$
   
3. Dim ar, s$
   
4. Set cnn = CreateObject("ADODB.Connection")
   
5. cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=NO;IMEX=1';Data Source=" & ThisWorkbook.FullName
   
6. SQL = "select f1,f2 from [sheet1$g10:h] order by f2 desc"
   
7. Set Rst = cnn.Execute(SQL)
   
8. ar = Rst.getrows
   
9. s = Join(Application.Index(ar, 1, 0), "")
   
10. cnn.Close
    
11. Set cnn = Nothing
    
12. Range("g8").NumberFormat = "@"
    
13. Range("g8") = s
    
14. End Sub
    
15. 
    
16. Sub try2()
    
17.   Dim ar As Variant, i&, j&, k&, tmp As Variant, s
    
18.   ar = Range("g10").CurrentRegion
    
19.   For i = 1 To UBound(ar) - 1
    
20.     For j = i + 1 To UBound(ar)
    
21.       If ar(j, 2) > ar(i, 2) Then
    
22.         For k = 1 To UBound(ar, 2)
    
23.           tmp = ar(j, k): ar(j, k) = ar(i, k): ar(i, k) = tmp
    
24.         Next
    
25.       End If
    
26.     Next
    
27.   Next
    
28.   Range("g8").NumberFormat = "@"
    
29.   Range("g8") = Join(Application.Transpose(Application.Index(ar, 0, 1)), "")
    
30. End Sub

复制代码