初めまして。

VB6.0を用いてプログラムを作成しています。

値を配列に保持したいのですが、何件か重複しています。
それらを全て取り除いた上で配列に保持したいです。（要はDBでのDISTINCT文でやることと同じです）

ループ文で現在の配列と値を一つ一つ比較していけば良いのかもしれませんが、それでは少し効率が悪い気がするので、どなたか良い方法があればご教授願えませんでしょうか？

以上、よろしくお願い致します。

> 値を配列に保持したいのですが、何件か重複しています。
どのような値ですか?
数値や文字列などの単純型であるならば、Dictionary が使えるかと。


With CreateObject("Scripting.Dictionary")
　Dim v As Variant
　For Each v In sourceArray
　　If Not .Exists(v) Then
　　　.Add v, v
　　End If
　Next
　resultArray = .Items()
End With