返回列表 上一主題 發帖

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

kim223824

帖子
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 中 用字典的方式 從小到大的排序

2017-11-24_111846.jpg

我只寫到不重複，排序就卡住了。
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)
收藏 分享

joblyc017
　暱稱:

中學生Rank: 2

帖子
111 
主題
3 
精華
0 
積分
156 
點名
0  
作業系統
Window 
軟體版本
office 365 
閱讀權限
20 
性別
女 
註冊時間
2017-8-14 
最後登錄
2023-6-26 
2#
發表於 2017-11-24 14:34 | 只看該作者
回復 1# kim223824

個人練習，數值從小到大排序，想到使用Small函數排序，詳下圖紅框：
    Sort_test.gif

TOP

adrian_9832

帖子
79 
主題
19 
精華
0 
積分
148 
點名
0  
作業系統
WINDOW7 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-5-21 
最後登錄
2023-3-13 
3#
發表於 2017-11-25 14:55 | 只看該作者
或者用錄制巨集的功能 也行

TOP

Kubi

帖子
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

kim223824

帖子
75 
主題
8 
精華
0 
積分
109 
點名
0  
作業系統
windows XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2015-4-19 
最後登錄
2025-5-7 
5#
發表於 2017-11-26 15:46 | 只看該作者
感謝各位大大:
提供的方法，結果一樣，我本來想用字典的語法，來完成這樣程式。

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題