09/11/13 22:01:06
質問させて頂きます。
A1からA100に1から10の数字を入力するマクロを作成
していますが、無限ループになってしまいます。。
どのようにすればよろしいでしょうか？
Sub Ary()
Dim Arow As Long
Dim i As Long
For i = 1 To 600
Cells(i, 1).Value = i
If i = 10 Then
i = 1
End If
Next i
End Sub
09/11/13 22:01:06
質問させて頂きます。
A1からA100に1から10の数字を入力するマクロを作成
していますが、無限ループになってしまいます。。
どのようにすればよろしいでしょうか？
Sub Ary()
Dim Arow As Long
Dim i As Long
For i = 1 To 600
Cells(i, 1).Value = i
If i = 10 Then
i = 1
End If
Next i
End Sub