VBAでループ内で使う変数名を可変にできないか。

次のような処理で・・・、
　Cnt_1 = Cnt_1 + 1
　Cnt_2 = Cnt_2 + 1
　　　：
実際には一つの変数（Cnt_1など）ごとに処理がもっとあるのですが、
変数はCnt_1からCnt_5まであり、すべて同じ処理をするので、変数名を
可変にして同じループで書けないかと思うのですが、可能でしょうか？

たとえば、
For I=1 to 5
　Cnt_I = Cnt_I + 1
Next I
と書くと、「Cnt_I」という変数の処理になってしまいますね・・。

なにかいい方法はないでしょうか？

No.1 ベストアンサー 回答者： M-SOFT#2 回答日時： 2007/02/21 00:44

こんばんは。

配列変数を使えばいいでしょう。
変数を5個用意して、すべて1～5まで足すという処理の場合です。
Dim Cnt(4) As Integer
Dim i As Integer
Dim　j As Integer
For i = 0 To 4
For j = 1 To 5
Cnt(i) = Cnt(i) + j
Next j
Next i
どうでしょうか。

この回答へのお礼

できました！ありがとうございます！勉強になりました！

お礼日時：2007/02/24 01:03

No.2 回答者： imogasi 回答日時： 2007/02/21 23:38

Sub test01()

Dim c(5, 5)
For j = 0 To 5
For i = 0 To 3
c(i, j) = i + j
Next i
Next j
'---
For j = 0 To 5
For i = 0 To 3
MsgBox c(i, j)
Next i
Next j
End Sub
こんなのを参考にして、何とかなりませんか。

この回答へのお礼

参考にさせていただきます。ありがとうございました。

お礼日時：2007/02/24 01:04