将某一行各单元格数据去重按从小到大排列，从上到下依次显示在指定列中，如何写代码？

冰点1976

Sub test2() '数组法
    Dim i%
    Dim arr, brr
    Dim d As Object
    Set d = CreateObject("scripting.dictionary")
    With Worksheets("sheet2")
        arr = .Range("a1:e1")
        mm = Application.Max(arr)
        nn = Application.Min(arr)
        ReDim brr(nn To mm)

        For j = 1 To 5
            brr(arr(1, j)) = 1
        Next
        ss = ""
        For i = nn To mm
            If brr(i) = 1 Then
                k = k + 1
                brr(k, 1) = i
            End If
        Next
        .Range("h1") = brr
    End With
End Sub

网上找了好多方式，不太会举一反三，修改的代码还是有问题，请各位老师抽空帮我修改下，谢谢了！！！

loirol

去重排序的例子

冰点1976

谢谢老师！

loirol

冰点1976 发表于 2024-11-29 14:26
谢谢老师！

有更新，重新下载

冰点1976

谢谢老师，我已经找到最大数不出来的原因了，就是最后那句要加1

ykcbf1100

数组去重排序，ArrayList法

ykcbf1100

参与一下。。。

1. Sub ykcbf()    '//2024.11.29   ArrayList法
   
2.     Set List = CreateObject("System.Collections.ArrayList")
   
3.     With ActiveSheet
   
4.         arr = .Range("a1:e1")
   
5.         For Each k In arr
   
6.             If Not list.Contains(k) Then list.Add k
   
7.         Next k
   
8.         List.Sort
   
9.         .[h1].Resize(, UBound(arr, 2)) = List.toArray
   
10.     End With
    
11.     MsgBox "OK！"
    
12. End Sub
    

复制代码

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, i&, j&, dic As Object
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [C1].CurrentRegion.Value
    For j = 1 To UBound(ar, 2)
        dic(ar(1, j)) = Empty
    Next j
    ar = Application.Transpose(dic.keys)
    bSort ar, 1, UBound(ar), 1, 1, 1
   
    [A1].Resize(UBound(ar)) = ar
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub
Function bSort(ByRef ar, ByVal iFirst&, ByVal iLast&, ByVal iLeft&, _
    ByVal iRight&, ByVal iKey&, Optional isOrder As Boolean = True)
    Dim i&, j&, k&, vTemp
   
    For i = iFirst To iLast - 1
        For j = iFirst To iLast + iFirst - 1 - i
            If ar(j, iKey) <> ar(j + 1, iKey) Then
                If ar(j, iKey) < ar(j + 1, iKey) Xor isOrder Then
                    For k = iLeft To iRight
                        vTemp = ar(j, k)
                        ar(j, k) = ar(j + 1, k)
                        ar(j + 1, k) = vTemp
                    Next
                End If
            End If
        Next j
    Next i
End Function

gwjkkkkk

请参考。。。

xlj310

gwjkkkkk 发表于 2024-11-29 19:50
请参考。。。

我用你的附件，用函数试了一下。
=SORT(TOCOL(UNIQUE(C1:BS1,TRUE)))