Sub 横飛び記入() '記入する行をクリックした後マクロ実行する。 　retu = ActiveCell.Column 　gyou = ActiveCell.Row For i = 0 To 20 　　If Cells(gyou, retu + i) <> "" Then...

https://syu3lotonumexvba.muragon.com/entry/10.html