- 帖子
- 45
- 主題
- 3
- 精華
- 0
- 積分
- 72
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2018-2-12
- 最後登錄
- 2025-3-27
|
8#
發表於 2021-7-9 08:16
| 只看該作者
本帖最後由 s3526369 於 2021-7-9 08:17 編輯
回復 7# wang077 Dim crr
Dim i As Long
Set D = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
.Activate
For Each a In .Range("A2", .[a2].End(xlDown)) '把[a2]改成[a1000]或者是[a2000] 格數可以自行設定
D(a.Value) = ""
Next
End With
crr = D.keys
'================================================================排序
For i = 0 To UBound(crr) - 1
k = i
For j = i + 1 To UBound(crr)
If crr(k) > crr(j) Then k = j '升序排列用">",降序排列用"<"
Next
If k > i Then
X = crr(i)
crr(i) = crr(k)
crr(k) = X
End If
Next
ComboBox1.List = crr |
|