VBAのループの作成方法

質問

質問があります。

<ソース>
With Worksheets(Sheet_No)
　For x = 1 To 100
　 F = 0
For y = 1 To 200
　　 Check = StrComp(Trim(Nyukan_name(x)), Trim(Userid_name(y)), vbTextCompare)
　　 If Check = 0 Then
　　 Outdata_ok(????) = Userid_name(y) & " | " & User_id(y)
???? = ???? + 1
F = 1
End If
Next y
If F <> 1 Then
Outdata_ng(??) = Nyukan_name(x)
?? = ?? + 1
End If
Next x
End With

上記で配列のデータを配列に入れたいのですが、ループ処理がうまくいきません。（????と??の場所）Err内容:インデックスがありません。
変数の宣言も不明なのですが、Userid_name(y) と　Nyukan_name(x)の値を１から順番にOutdata_ok(????) と
Outdata_ng(??) に入れたいのですが、どのようにするのでしょうか？

<サンプル>
Nyukan_name(x) Userid_name(y)
1 1　　　aaaa
2 2 bbbb
3 1 cccc
4 3 dddd

上記のようにあった場合、Outdata_ok(????) にはNyukan_name(x)にある１でヒットしたものはすべて格納
Nyukan_name(x)にある4でUserid_name(y)に無いものはOutdata_ng(??)に格納

回答No.1

human_7 · ベストアンサー

dim Nyukan_name(100) as String
dim Outdata_ok(100) as String
dim Userid_name(200) as String
dim User_id(200) as String

dim i as integer
dim j as integer

i = 0
j = 0
For x = 1 To 100
F = 0
For y = 1 To 200
Check = StrComp(Trim(Nyukan_name(x)), Trim(Userid_name(y)), vbTextCompare)
If Check = 0 Then
i = i+1
Outdata_ok(i) = Userid_name(y) & " | " & User_id(y)
F = 1
End If
Next y
If F <> 1 Then
j = j+1
Outdata_ng(j) = Nyukan_name(x)
End If
Next x

とりあえずこんな感じでしょうか
With Worksheets(Sheet_No) の意味が不明でしたが...

補足

ありがとうございました。

dim Nyukan_name(100) as String
dim Outdata_ok(100) as String
dim Userid_name(200) as String
dim User_id(200) as String

dimはstringではなくVariantで上記のソースのように作成しているのです。
ですが、インデェクスエラーが出るのですよね。（なぜだろう)

記載を忘れていたのですが、エクセルのVBAです。