ゲストさん:

こんにちは。

成果につながっているご様子、なによりです (^^

横へのくりかえしのやり方もいろいろありますが...。
発展編１でお伝えしているのは、 .Offset プロパティを使う方法です。

Sub hoge()
    Dim yoko
    
    yoko = 3
    
    Range("A1").Offset(, yoko).Value = 1
    
    yoko = 5
    
    Range("A1").Offset(, yoko).Value = 2
    
    For yoko = 1 To 10
        Range("A3").Offset(, yoko).Value = yoko
    Next
End Sub

とはいえ、「横方向へのくり返し作業」が必要になるのは、例外なる、「DPR」で言うところの、「R→R」のタイプの仕事です。

「D→R」タイプの仕事では「横方向へのくり返し作業」が必要になるケースはほとんどありません。

「R→R」のタイプの仕事は「D→R」タイプの仕事より腕力が必要になります。

極力、「D→R」タイプになるよう、仕事を再設計してからマクロを書くようにしてください。
腕力に欠ける基礎編レベルのころはそういう工夫も特に重要です。

「DPR」については、以下の無料講座もご確認ください。
マクロを書くときに、工数を格段に減らすためのアイデアが得られるものと思います。

○エクセル仕事を劇的に楽にする「DPRフレームワーク」
http://www.exvba.com/dpr.php

2019/06/24 20:21