Excel2019 VBA DictionaryのExistsが常に「false」を返す

Question

Excel2019のVBAで

sub test()
Dim i As Integer
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
i = 11
While i < 42
    buf = Cells(i, 2).Value
    
    If Dic.Exists(buf) Then
        MsgBox ("重複データがあります")
    Else
    End If
    i = i + 1
Wend
end sub

というコードを書いています。
cells(11,2),cells(12,2)のセル両方に「1」を入れて重複チェックをしたのですが「重複データがあります」と表示されません。
buf = Cells(i, 2).Valueの下に
Debug.Print(buf)
Debug.Print (Dic.Exists(buf))
を追記してみたのですが、
Debug.Print(buf)で1が２回イミディエイトに表示されているのに、
Debug.Print (Dic.Exists(buf))ではイミディエイトがfalseになっています。

原因、解決方法ご教示お願い致します。

Answer 1

ElseでbufをDicにAddしてないからですね。

Comments

[himawari39]

ありがとうございます！
無事メッセージが表示されるようになりました。