- 帖子
- 6
- 主題
- 1
- 精華
- 0
- 積分
- 9
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 10
- 註冊時間
- 2016-8-3
- 最後登錄
- 2016-8-26
|
[發問] excel vba 如何重新排序下拉選單
求助我以下代碼增加入下拉選單item,
發覺下拉選單內的item不是順序的,我想排到順序,但是又不想影響工作表內的內容。
我應該怎樣寫?-
- Dim A As Range
- Set d = CreateObject("Scripting.Dictionary")
- With ActiveSheet
-
- For Each A In .Range("A4:A600")
- d(A.Value) = IIf(d(A.Value) = "", A.Offset(, 1).Value, d(A.Value) & "," & A.Offset(, 1))
- Next
- company1.List = d.keys
- End With
|
|
發表於 2016-8-5 13:49
| 
