如何排序并合并一起

shermanshao2000

如何排序并合并一起

yes_cn

试一下

shermanshao2000

yes_cn 发表于 2024-9-15 11:08
试一下

您好，要求排序的数据在字典里。不是在单元格，代码如何改呢？

gwjkkkkk

Sub 学习()
Set d = CreateObject("Scripting.Dictionary")
arr = Array(8, 5, 7, 6, 1, 3, 6)
For Each r In arr
    d(r) = ""
Next
For i = 1 To 9
    If d.exists(i) Then Str1 = Str1 & i
Next i
MsgBox Str1
End Sub

gwjkkkkk

/////////////

yes_cn

这个

shermanshao2000

yes_cn 发表于 2024-9-15 11:34
这个

谢谢！      
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
这个怎么理解呢？

ww87725244

1. Sub 学习()
   
2. Dim s, i
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr = Array(8, 5, 7, 6, 1, 3, 6)
   
5. For Each r In arr
   
6.     d(r) = ""
   
7. Next
   
8. For i = 1 To d.Count
   
9.     s = s & Application.WorksheetFunction.Small(d.keys, i)
   
10. Next
    
11. End Sub
    

复制代码

ykcbf1100

用ArrayList比较简单，ArrayList自带排序功能。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.9.15
   
2.     Set List = CreateObject("System.Collections.ArrayList")
   
3.     arr = Array(8, 5, 7, 6, 1, 3, 6)
   
4.     For Each r In arr
   
5.         If Not List.Contains(r) Then List.Add r
   
6.     Next
   
7.     List.Sort
   
8.     zrr = List.toArray
   
9.     st = ""
   
10.     For i = 0 To UBound(zrr)
    
11.         st = st & zrr(i)
    
12.     Next
    
13.     MsgBox st
    
14. End Sub
    

复制代码