データのある最後の行までループさせる方法
n = Cells(Rows.Count, “A”).End(xlUp).Row
A列の最後の行位置がどこかを取得します。
ループさせる様にすればよい( For i = 1 to n ) という具合です。
補足
m = Cells(1, Columns.Count).End(xlToLeft).Column
この1行の構文で、横方向の(列の)最後も取得できます。
やったことを忘れないようにするための備忘録
データのある最後の行までループさせる方法
n = Cells(Rows.Count, “A”).End(xlUp).Row
A列の最後の行位置がどこかを取得します。
ループさせる様にすればよい( For i = 1 to n ) という具合です。
補足
m = Cells(1, Columns.Count).End(xlToLeft).Column
この1行の構文で、横方向の(列の)最後も取得できます。