關於Scripting.Dictionary除了過濾重複值，是否可以同時忽略空值？

av8d

問題.rar (55.16 KB)

下載次數: 11

2021-10-5 16:03

正常時會過濾重複

下載 (20.93 KB)

2021-10-5 16:10

當出現空值時則異常

下載 (13.72 KB)

2021-10-5 16:07

下載 (12.12 KB)

2021-10-5 16:07

還是說不適合使用Scripting.Dictionary？

samwang

回復 1# av8d

建議空白可以直接排除，謝謝

av8d

回復 2# samwang


    說來慚愧，這段程式碼是由網路複製貼來的，
    我努力學習及理解中，謝謝抽空解答。

av8d

回復 2# samwang

研究了許久，也透過搜索"Scripting.Dictionary"，查看了關於您的範例
但還是無法推敲出結果，還請賜教，

因為空值隨時會被填入資料，所以是否能暫時忽略，
但是當填入時，就會算入。

samwang

回復 4# av8d

因為空值隨時會被填入資料，所以是否能暫時忽略，
但是當填入時，就會算入。
>>更改如下，謝謝
For Each A In .Range("B4", .[B65536].End(xlUp))
            If A.Value = "" Then GoTo 99
            d(A.Value) = ""  '只取B欄不重複值
            'd(A.Value) = IIf(d(A.Value) = "", A.Offset(, 1).Value, d(A.Value) & "," & A.Offset(, 1))
99:     Next

av8d

回復 5# samwang

  謝謝前輩，真的是豁然開朗，學習了許多新知識，由衷感謝。

ML089

For Each A In .Range("B4", .[B99].End(xlUp))
            'd(A.Value) = IIf(d(A.Value) = "", A.Offset(, 1).Value, d(A.Value) & "," & A.Offset(, 1))
            If A.Value <> "" Then d(A.Value) = "" '排除空值
Next

av8d

回復 7# ML089

使用後發現會保留空值一個，
原來也可以這樣寫，萬分感謝，學習了。

Andy2483

謝謝論壇,謝謝各位前輩
後學藉此帖學習到清單知識與字典的運用,學習方案如下,請各位前輩指教

點選清單結果:

下載 (35.27 KB)

2023-6-15 11:34

Option Explicit
Private Sub ComboBox1_Change()
Dim A As Range, d As Object
Set d = CreateObject("Scripting.Dictionary")
With Sheets("我的知識庫")
   For Each A In .Range("B4", .[B65536].End(xlUp)).SpecialCells(2)
      d(A.Value) = ""
   Next
   ComboBox1.List = d.keys
End With
End Sub

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    '觸發ComboBox1_Change
    ComboBox1.Value = "."
    ComboBox1.Value = ""
End Sub

singo1232001

回復 6# av8d


    If d.exists("") Then d.Remove ""