[已解决]如何用自定函数去重数据并按小到大排序

cbhllm

A1里的数据有空格隔开,如:A1里的数据是12 23 23 45 45 69 10 09   结果B1等于09 10 12 23 45 69 如何用自定函数去重数据并按小到大排序,请各位大师帮帮我,谢谢了

最佳答案

月排行榜 / 总排行榜

zjdh

2015-7-27 19:04

1. Function PAIXU(x)
   
2.     Dim i&, j&, vSwap, arr
   
3.     arr = Split(x, " ")
   
4.     Set D = CreateObject("scripting.dictionary")
   
5.     For i = 0 To UBound(arr)
   
6.         D(arr(i)) = ""
   
7.     Next
   
8.     arr = D.KEYS
   
9.     For i = UBound(arr) To 1 Step -1
   
10.         For j = 0 To i - 1
    
11.             If Val(arr(j)) > Val(arr(j + 1)) Then
    
12.                 vSwap = arr(j): arr(j) = arr(j + 1): arr(j + 1) = vSwap
    
13.             End If
    
14.         Next
    
15.     Next
    
16.     PAIXU = Join(arr, " ")
    
17. End Function

复制代码

跳转到最佳答案楼层

gufengaoyue

1. Function PAIXU(x)
   
2. Dim i&, j&, vSwap, arr
   
3. arr = Split(x, " ")
   
4.   For i = UBound(arr) To 1 Step -1
   
5.     For j = 0 To i - 1
   
6.       If Val(arr(j)) > Val(arr(j + 1)) Then
   
7.         vSwap = arr(j): arr(j) = arr(j + 1): arr(j + 1) = vSwap
   
8.       End If
   
9.     Next
   
10.   Next
    
11. PAIXU = Join(arr, " ")
    
12. End Function
    

复制代码

zjdh

1. Function PAIXU(x)
   
2.     Dim i&, j&, vSwap, arr
   
3.     arr = Split(x, " ")
   
4.     Set D = CreateObject("scripting.dictionary")
   
5.     For i = 0 To UBound(arr)
   
6.         D(arr(i)) = ""
   
7.     Next
   
8.     arr = D.KEYS
   
9.     For i = UBound(arr) To 1 Step -1
   
10.         For j = 0 To i - 1
    
11.             If Val(arr(j)) > Val(arr(j + 1)) Then
    
12.                 vSwap = arr(j): arr(j) = arr(j + 1): arr(j + 1) = vSwap
    
13.             End If
    
14.         Next
    
15.     Next
    
16.     PAIXU = Join(arr, " ")
    
17. End Function

复制代码