返回列表下一主題上一主題發帖

VBA 用字典的方式提去不重複及小到大的排序

kim223824

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2025-5-7

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-11-24 11:27 | 顯示全部帖子

VBA 用字典的方式提去不重複及小到大的排序

各位大大:

請問如何用 VBA 中用字典的方式從小到大的排序

我只寫到不重複，排序就卡住了。
Sub text()
Dim d As Object, arr, brr
Set d = CreateObject("scripting.dictionary")

arr = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)

ReDim brr(1 To UBound(arr), 1 To 1)

For i = 1 To UBound(arr)
      s = arr(i, 1)
      If Not d.exists(s) Then
         d(s) = ""
         k = k + 1
         brr(k, 1) = arr(i, 1)
      End If
Next
Range("B:B").ClearContents
Range("B1").Value = "結果"
With Range("B2").Resize(k, 1)
      .NumberFormat = "@"
      .Value = brr
End With

Set d = Nothing

end sub