- 帖子
- 7
- 主題
- 1
- 精華
- 0
- 積分
- 58
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 註冊時間
- 2021-7-3
- 最後登錄
- 2025-11-23
|
回復 1# duck_simon
Sub Ex()
Dim d As Object
Dim cell As Range
Set d = CreateObject("Scripting.Dictionary")
For Each cell In [B2:M3]
d(cell.Value) = ""
Next cell
Rows("6").ClearContents
[B6].Resize(1, d.Count) = d.keys
[B6].Resize(1, d.Count).Sort Key1:=[B6], Orientation:=xlLeftToRight
End Sub |
|
發表於 2022-4-17 21:09
| 