出題内容
画像のように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