変数を二つ使って、セルを縦と横に動かしましたが、これを更に変更を加えます。
この状態を
このようにセルを移動するごとに1ずつ増やしていくようにします。
変更後のコードです。
Sub 横と縦の動き()
Dim b As Integer
Worksheets(“データ”).Activate
a = 3
b = 4
c = 1
Do Until Cells(a, 1).Value = “”
Do Until Cells(2, b).Value = “”
Cells(a, b).Value = c
b = b + 1
c = c + 1
Loop
b = 4
a = a + 1
Loop
End Sub
太文字部分が変更・追加したところです。
新たな変数cに登場してもらって、セルが移動するごとに1ずつ増やしていきます。
前回解説したとおり、bを増やし続けると、意図した通りに動かいないので、そこで
制約がない新たな変数を用意します。
先日日本国旗を買いました。
そんなわけで今日初めて我が家で国旗を掲揚します。
よくわかりませんが、楽しみです。
本日も最後までお読みいただきありがとうございます。
