VBA コンボボックスの重複削除

こんばんわ。
ＶＢＡをはじめたばかりで、コンボボックスで困っています。
sheet1にコンボボックスを配置して、sheet2のA列にあるデータ　（例）　A列
　　　　　　　　　１
　　　　　　　　　１
　　　　　　　　　２
を　コンボボックスに
　　　　　　　　　１
　　　　　　　　　２
というようにデータを入れたいのですが、どの様にしたらよいのでしょうか？

sheet1.コンボボックス.value=workSheet("sheet2).Range(A1:A3).value とすると１・１・２というようにA列の値がすべて入ってしまいました。
これを１・２というようにコンボボックスに入れたいです。　
よろしくお願いいたします。

No.1 ベストアンサー 回答者： taocat 回答日時： 2005/01/20 22:39

こんばんは。

一案です。参考にしてください。


Sub Test()
Dim R As Long
Worksheets("Sheet1").ComboBox1.Clear

With Worksheets("Sheet2")
　For R = 1 To .Range("A1").End(xlDown).Row - 1
　　If .Range("A" & R) <> .Range("A" & R + 1) Then
　　　Worksheets("Sheet1").ComboBox1.AddItem .Range("A" & R)
　　End If
　Next R
　　　Worksheets("Sheet1").ComboBox1.AddItem .Range("A" & R)
End With
End Sub

　
以上です。