vba-select-blank-line_960_720エクセルのマクロを使う機会が増えてきたので、基本的なマクロではあるが今後も使いそうなマクロはメモしていこうと思う。

スポンサーリンク

アクティブセルを起点に空行の手前までセルを選択するマクロ

そのまんまです。

どの列まで選択するかは、定数で指定すれば良いかと。

Const ct_COLUMN As Integer = 9 ‘コピーする範囲(列)。今回は9列目まで。Sub Sample1()

Range(ActiveCell, ActiveCell.End(xlDown).Offset(0, ct_COLUMN)).Select

End Sub

「ActiveCell.End(xlDown)」でアクティブセルから下への終端を取得します。更に「Offset」プロパティを使って選択範囲を調整します。

参考になったサイト

参考になったのはこちらのサイト。いつもお世話になっております。

VBAで空白セルまでを選択する