Excel VBA質問スレ Part13

Excel VBA質問スレ Pa ..

628:デフォルトの名無しさん
09/11/14 08:59:38
>>619
Sub Ary()
Dim Arow As Long
Dim i As Long
Dim j As Integer

j = 1
For i = 1 To 600
Cells(i, 1).Value = j
j = j + 1
If j > 10 Then
j = 1
End If
Next i

End Sub
こんなものでどないでしょう。

次ページ

続きを表示

1を表示