多行数据从小到大排列，去重复。

LIUZHU

多少年后再回头看这个问题，一行代码解决

1. function 去重排序(){
   
2.         Range("h1").Value2=[...new Set(Range("a1").CurrentRegion.Value2.flat().sort((a,b)=>a-b))].join(",");
   
3. }

复制代码

LIUZHU

只是需要WPS测试

swl4561255

1. Sub test()
   
2. Set myr = Range("A1").CurrentRegion
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For Each a In myr
   
5.    d(a.Value) = ""
   
6. Next
   
7. k = d.keys
   
8. n = d.Count
   
9. For i = 0 To d.Count - 1
   
10.    For j = 0 To i
    
11.       If k(i) < k(j) Then
    
12.          temp = k(i)
    
13.          k(i) = k(j)
    
14.          k(j) = temp
    
15.       End If
    
16.    Next
    
17. Next
    
18. [H1] = Join(k, ",")
    
19. Set d = Nothing
    
20. End Sub
    

复制代码

LIUZHU

swl4561255 发表于 2024-4-2 15:53

字典是个好东西，可惜VBA的数组就是太落后了，排序没有专门的方法，现在的主流变成语言Python、JavaScript的数组都有排序的方法。

lisongmei

python合并一下，嘿嘿:
import pandas as pd
df=pd.read_excel('a.xlsx',header=None)
df=','.join(df.stack().sort_values().astype('str'))
print(df)

gwjkkkkk

chxw68 发表于 2017-8-3 11:31
如果楼主排序的数据都是整数的话，也可以使用数组实现。

这个类似基数排序法，但仅适用于整数。。。

gwjkkkkk

Option Explicit
Sub test1()
    Dim ar, br, i&, j&, n&
   
    ar = [a1].CurrentRegion.Value
    ReDim br(1 To UBound(ar) * UBound(ar, 2))
    For i = 1 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            n = n + 1
            br(n) = ar(i, j)
        Next j
    Next i
    qSort1 br, 1, UBound(br)
   
    [H1].Value = Join(br, ",")
    Beep
End Sub
Function qSort1(ByRef ar, ByVal iFirst&, ByVal iLast&, _
    Optional ByVal isOrder As Boolean = True)
   
    Dim i&, j&, k&, vTemp1, vTemp2
   
    i = iFirst: j = iLast: vTemp1 = ar((iFirst + iLast) / 2)
    While i <= j
        If isOrder Then
            While ar(i) < vTemp1: i = i + 1: Wend
            While vTemp1 < ar(j): j = j - 1: Wend
        Else
            While ar(i) > vTemp1: i = i + 1: Wend
            While vTemp1 > ar(j): j = j - 1: Wend
        End If
        If i <= j Then
             vTemp2 = ar(i): ar(i) = ar(j): ar(j) = vTemp2
             i = i + 1: j = j - 1
        End If
    Wend
   
    If iFirst < j Then qSort1 ar, iFirst, j, isOrder
    If i < iLast Then qSort1 ar, i, iLast, isOrder
End Function

gwjkkkkk

参与一下。。。

cnmlgb9998

1. =TEXTJOIN(",",TRUE,SORT(UNIQUE(TOCOL(A1:E5)),,1))

复制代码

时代在进步！！！！！！！！