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

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

kim223824

中學生 Rank: 2

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

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

VBA字典排序方式.zip (5.93 KB)

樓主熱帖

kim223824

中學生 Rank: 2

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

5^#

發表於 2017-11-26 15:46 | 只看該作者

感謝各位大大:
提供的方法，結果一樣，我本來想用字典的語法，來完成這樣程式。

TOP

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

4^#

發表於 2017-11-25 19:57 | 只看該作者

回復 1# kim223824
底下誠如3樓 adrian_9832 所說的是用錄製的方式取得：
Sub test()
Columns("A").Copy [B1]
er = [A65536].End(3).Row
With Range("B1:B" & er)
.RemoveDuplicates Columns:=1, Header:=xlNo
.Sort key1:=[B1], Order1:=1
End With
End Sub

TOP

adrian_9832