第8回.表範囲をまとめて消去する（OffsetとClearContents）
エクセルのマクロVBAでの処理では、表範囲を一旦クリアしてから処理することが多くあります。
つまり、表範囲を初期化してから、その後に何らかの処理をするという事になります。
データ部分、つまり見出しや計算式の入ってないセルのみを消去しなければなりません。
見出しを残しデータ部分のみ消去
つまり、
見出しだけを残して初期化します。
表の最終行を取得して、2行目から最終行までを範囲とすることができそうです。
そして、セル範囲の消去は、
または、
セル範囲.Clear
対して、
ClearContentsは、値のみの消去になります、セル範囲を選択して、Deleteキーを押す操作になります。
iには、最終行が取得されて11が入りますので、
結果として、
Range(Range("A2"), Cells(11, 3)).ClearContents
という事なので、正しく消去できます。
1回目で、データ部分が消去され、
2回目には、最終行が1となり、
Range(Range("A2"), Cells(1, 3)).ClearContents
このようになってしまいます。
これは、実行してみれば分かりますが、1行目の見出しまで消えてしまいます。
これを避けるためには、最終行が2以上の時だけ消去する等のロジックを入れる必要があります。
Offsetを使って範囲をずらす
では、なぜそのようになるかの理屈です、コードの解説をします。
これは、シート上でA1セルを選択しCtrl+Aを押した範囲です。
カレントリージョンと読みます、
Offset(ずらす行数, ずらす列数)
Range("A1").CurrentRegion.Offset(1, 0)
これは、表全体の範囲（A1:C11）を下に1つずらした範囲(A2:C12)になります。
2回目を実行したときも、
表全体の範囲（A1:C1）を下に1つずらした範囲(A2:C2)となるので問題ありません。
CurrentRegionの範囲は、周り（上下左右）のセルには何も入っていない独立したセル範囲なので問題ないのです。
ちょっと考えてみて下さい。
Offset(ずらす行数, ずらす列数)
なので、右にも1つずらせば良いのです。
データ範囲に関係なく消去する場合
Columns(1).ClearContents '・・・ A列を消去
Range("A:B").ClearContents '・・・ A:B列を消去
Rows(1).ClearContents '・・・ 1行目を消去
Range("1:2").ClearContents '・・・ 1:2行目を消去
ExcelマクロVBA入門等の対応ページ
第28回.セル・行・列の選択（Select,ActivateとCurrentRegion）
第39回.セルのクリア（Clear,ClearContents）
第83回.RangeのOffsetプロパティ
同じテーマ「マクロVBA再入門」の記事
第5回.同じ計算を行数分繰り返す（For～Next）
第6回.表の先頭から最終行まで繰り返す（ForとEnd(xlUp).Row）
第7回.セルの値によって計算を変える（Ifステートメント）
第8回.表範囲をまとめて消去する（OffsetとClearContents）
第9回.関数という便利な道具（VBA関数）
第10回.ワークシートの関数を使う（WorksheetFunction）
第11回.分からない事はエクセルに聞く（マクロの記録）
第12回.エクセルの言葉を理解する（オブジェクト、プロパティ、メソッド）
第13回.セルのコピペ方法を知る（CopyとPaste、さらに）
第14回.セルの書式を設定する（NumberFormatLocal,Font,Barders,Interior）
第15回.手作業で出来なければマクロは書けない
新着記事NEW ・・・新着記事一覧を見る
VBA100本ノック 18本目：名前定義の削除｜VBA練習問題100（11月6日）
VBA100本ノック 17本目：重複削除（ユニーク化）｜VBA練習問題100（11月6日）
VBA100本ノック 16本目：無駄な改行を削除｜VBA練習問題100（11月5日）
VBA100本ノック 15本目：シートの並べ替え｜VBA練習問題100（11月4日）
VBA100本ノック 14本目：社外秘シート削除｜VBA練習問題100（11月3日）
VBA100本ノック 13本目：文字列の部分フォント｜VBA練習問題100（11月1日）
VBA100本ノック 12本目：セル結合を解除｜VBA練習問題100（10月31日）
VBA100本ノック 11本目：セル結合の警告｜VBA練習問題100（10月30日）
VBA100本ノック 10本目：行の削除｜VBA練習問題100（10月29日）
VBA100本ノック 9本目：フィルターコピー｜VBA練習問題100（10月28日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.マクロって何？VBAって何？｜VBA入門
6.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。