VBA ０から3までの数字を繰り返し出力

０から3までの数字を繰り返し出力

Sub test()
    ' ０から3までの数字を繰り返し出力
    
    
    Range("B1:B30") = "=MOD(ROW(),4)"
    
    '  数式を値貼り付けに
    Range("B1:B30") = Range("B1:B30").Value

 

End Sub

"=MOD(ROW(),4)"なかの４は、最大の数字３（＝4-1）を決定する要素で、それを7に変えれば、0から6までの数字を出力できます。

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る