【Ｅxcel】セルに入れた数字だけ同じことを繰り返す【VBA】

質問

A1のセルに数値を入れ、マクロを実行させたときに
A1に入れた数値だけ同じ行動を行うというプログラムを作りたいのですが、
うまくいきません。

VBAで実行させたいです。

Sub Macro1()
c = 1
For a = 1 To 54
Cells(2, 2) = a
b = Int(54 * Rnd + 1)
If Cells(10, b) = 0 Then Cells(10, b) = c: c = c + 1: Cells(1, a) = b Else a = a - 1
Next a
End Sub

未だたたき台なプログラムですが、これを元に作成できないでしょうか？

回答No.1

hallo-2007 · ベストアンサー

やりたいことがよくわかりませんが
A1に54　と入れてあって

Sub Macro1()
c = 1
d = Range("A1").Value'ここに追加しました。
For a = 1 To d'A1の回数になります。
Cells(2, 2) = a
b = Int(54 * Rnd + 1)
If Cells(10, b) = 0 Then Cells(10, b) = c: c = c + 1: Cells(1, a) = b Else
'a = a - 1　ここの意味がわからなかったの外してあります。
Next a
End Sub

作動させてみて違ったらすみません。

お礼

ありがとうございます。
a=a-1を入れたのはランダムでも以前出た数値を抜かすために入れていました。