VBA Collection.Addで重複データが登録されてしまう

Question

EXCELシートのA列に日付（例：2019/09/25）のリストが複数行あります。
このリストの中には同じ日付のものが複数存在します。

以下のコードでCollection.Addで重複しない
日付のコレクションを作成しようとしたのですが
同じ日付のデータが、エラー無しで登録されてしまいます。

セルの表示形式は、分類が日付、種類が”*2012/3/14”です。

原因と対策を教えていただけますでしょうか？

Dim A As New Collection
For i = 1 To 100
A.Add Range("A" & i).Value
Next

Answer 1

Add メソッド (Visual Basic for Applications) | Microsoft Docs

Collection.Add item, key, before, after

という構文になりますが、itemは重複可能です。
keyは重複不可(一意)の文字列になります。
keyを省略すると自動で一意のキーが振られます。

日付を文字列に変換してkeyとすれば、重複すればエラーではじくことができます。

コード例

Dim A As New Collection
For i = 1 To 100
    On Error Resume Next
    A.Add Range("A" & i).Value, Format(Range("A" & i).Value,"yyyy/mm/dd")
    On Error Goto 0
Next

今回のような要件なら、Dictionaryオブジェクトを使った方が使いやすいと思います。
下記で重複なしのリストになります。

Dim D As Object
Set D = CreateObject("Scripting.Dictionary")
For i = 1 To 100
    D(Format(Range("A" & i).Value, "yyyy/mm/dd"))=Range("A" & i).Value
Next

Comments

[SYO_chan]

hatena19さん

ありがとうございます。
itemとkeyを混同していました。

[hatena19]

初めてか使うものは、本家(MS)のドキュメントで仕様は確認しておくといいですね。
.Add にカーソルを置いてF1キーを押すと回答の最初のリンクが開きますので、
すぐ確認できます。

[hatena19]

リンク先には、key の説明に、
コレクションのメンバーにアクセスするために位置インデックスの代わりに使用できるキー文字列を指定する一意の文字列式です。
と書いてありますので、文字列に変換してから渡した方かいいと分かります。

[SYO_chan]

hatena19さん

ご丁寧に教えてくださり、
ありがとうございます。

今後はカーソル+F1で調べるようにします。

Answer 2

原因
単純にAddしてるから（別々のキーで登録される）

対策
Addする前に同じ値が登録されているかチェックする。
こちらを参考に。

Comments

[SYO_chan]

ttyp03さん

ありがとうございます。
以下のサイトをみると、同じキーを登録しようとすると
エラーとなるので重複しないリストの作成にCollectio.Addが
使えるとの説明がありますが、Collection.Addの仕様が
変わったのでしょうか？

http://officetanaka.net/excel/vba/tips/tips178.htm

[ttyp03]

なるほど、そういう仕様でしたか。見落としてました。
Addは第二引数がキー値の指定になるので、参考サイトのように、同じ値を指定してあげればよさそうですね。
A.Add Range("A" & i).Value, Range("A" & i).Value

[SYO_chan]

ttyp03さん

ありがとうございます。
私も仕様を見落としていました。
Itemとkeyを混同していたようです。