VBA100本ノック 3本目：セルの消去

excel-ubara.com

出題内容

画像のように1行目に見出し、A列に№が入っています。
№行数およびデータ行数は毎回変化します。
この表の見出し（1行目）と№（A列）を残して、データ部分のみ値を消去してください。

自分の回答

Range("A1").CurrentRegion.Offset(1,1).ClearContents

解説

Offsetを使用すれば出題内容はクリアできるが、消去範囲がズレる。
IntersectやResizeを使用することで、消去範囲のズレを調整できる。

Intersectメソッド

Intersect(Range("A1").CurrentRegion,Range("A1").CurrentRegion.Offset(1,1)).ClearContents

Resizeプロパティ

Range("A1").CurrentRegion.Offset(1, 1).Resize(.Rows.Count - 1,
.Columns.Count - 1).ClearContents