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

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)

樓主熱帖

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函數排序，詳下圖紅框：

TOP

adrian_9832

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

3^#

發表於 2017-11-25 14:55 | 只看該作者

或者用錄制巨集的功能也行

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

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

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

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