ＶＢＡで一括削除 (ID:109205)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 最後のセル（Ctrl＋Endで移動したところ）を取得するには SpecialCellsメソッドにxlCellTypeLastCellを引数とすれば取得できます。 A1から最後のセルまでの範囲を削除する場合 Range("A1",ActiveCell.SpecialCells(xlCellTypeLastCell)).ClearContents