Excel collectionについて VBA

質問

Dim Mydata As New Collection
Dim i As Long
Dim EndNumber As Long

On Error Resume Next 'データを登録する間、エラーを無視する
For i = 2 To EndNumber '2行目から最終行までチェック
Mydata.Add Range("J" & i).Value, Range("J" & i).Value 'J列のデータ取得
Next i
On Error GoTo 0

i = 1
For Each A In Mydata
Worksheets("Sheet1").Range("A" & i).Value = A
i = i + 1
Next A

現在見ているシートの重複しない項目を
別シートに書き込みしているプログラムになります。
様々なサイトを参考にさせて頂き、
上記のような結果になり、
文字列は取得できるようになりました。

しかし、もとになるデータがある位置に（例は、J列）
数値が入っていると上手くコレクションに入ってくれません。

J列に文字列（りんご、ごりらなど）が入っている場合は
重複しない項目がコレクションに格納されていきます。

J列に文字列（0,1)が入っていた場合、
重複しない項目もなにも無く、
ローカルのMydataの中には<変数無し>とありました。

このプログラムの何処を直せば、数値をコレクションとして取得できますか？

ちなみに、EndNumberには最終行の数値が入っています。

＞Mydata.Add Range("J" & i).Value, Range("J" & i).Value 'J列のデータ取得
.valueを.stringにしても効果はありませんでした。

回答よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

＞.valueを.stringにしても効果はありませんでした。

そんな命令はありませんので，.valueの代わりに.textを使います。
Mydata.Add Range("J" & i).Value, Range("J" & i).text
詳細はcollectionのaddメソッドのヘルプ（keyの項）をご確認下さい。

あるいは
Mydata.Add Range("J" & i).Value, Range("J" & i).value & ""
とかでも構いません。

お礼

回答ありがとうございました。
お蔭様で、うまくいきました！
ありがとうございます！