Excel VBA 重複値を排除するには？

Excel VBAなのですが、配列に重複値を格納しないようにする方法あるでしょうか？

For i = 0 To 100
'' ここに既出myStrを排除するしくみを入れる？
s(i) = myStr
Next

myStrは"01"、"88"、"92"等々ランダムに変化します。
myStrの値が、すでにs(どこか)に格納済みだったら、
代入処理[ s(i)=myStr ] しないようにしたいのですが、
実現方法ないでしょうか？

Perlなら$seen{$myStr}++を使って便利なのですが...

No.2 ベストアンサー 回答者： hana-hana3 回答日時： 2004/09/29 22:03

Dim Flg as Booloan

Dim Max as Intger

myStr ="??"

'重複チェックと未格納配列番号の取得
For i = 0 To 100
　if s(i) = myStr then
　　Flg=True
　　exit for
　elseif s(i) = "" then
　　Max=i
　　exit for
　endif
Next

if Flg =False then s(Max) = myStr

正攻法で行くしかありません。

この回答へのお礼

なるほど。やっぱりそうなのですね。ハッキリと回答いただき、とても助かります。ありがとうございます！

お礼日時：2004/09/29 22:12

No.4 回答者： JaritenCat 回答日時： 2004/09/29 23:02

よくC言語使っているのでNo.1,NO.2の書き方はちょっと違和感あってC風に書いてみました。

。。参考まで

For i = 0 To 100

　　For j = 0 to i-1
　　　If s(j) = myStr then Exit For
　　Next j

　　If j=i then s(i) = myStr
Next i

この回答へのお礼

なるほど。シンプルで良さそうですね。ありがとうございました！！

お礼日時：2004/09/30 10:11

No.3 回答者： imogasi 回答日時： 2004/09/29 22:19

２桁の数字文字列であると言う前提なら、配列要素を１００個の配列A(100）をもって、

例えばB=34が現れたらA(Val(B)+1)を１にする。
再度B=34が来たら、A(35)が１なら既出、０なら初出であるとしてA(34)を１にし、既出なら撥ね付ければよい。
それで、今まで入ったコードの一覧を出すときは、A(０)からA(99)までの値１のものの、配列要素数を列挙すれば良い。

この回答へのお礼

素晴らしい！ Bに+1する理由すら理解できないのですが(^^;; 見事なやり方ですねえ。実は6桁の数字文字列なので配列A(999999)は厳しいかなと...
ありがとうございました！

お礼日時：2004/09/30 10:09

No.1 回答者： shinkun0114 回答日時： 2004/09/29 21:58

かったるい方法ですが、

For i = 0 To 100

　　flg = 0
　　For j = 0 to i
　　　If s(j) = myStr then flg=-1
　　Next j

　　If flg then Next i

s(i) = myStr
Next

この回答へのお礼

さすがにちょっとかったるいですね(^^;
でも達人もそうしているとわかれば大いに参考になります。素早い回答ありがとうございました。

お礼日時：2004/09/29 22:03