第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,Borders,Interior）
第15回.手作業で出来なければマクロは書けない
新着記事NEW ・・・新着記事一覧を見る
数字（1～50）を丸付き数字に変換するVBA｜VBA技術解説(2022-11-15)
TEXTAFTER関数（テキストの指定文字列より後ろの部分を返す）｜エクセル入門(2022-11-14)
TEXTBEFORE関数（テキストの指定文字列より前の部分を返す）｜エクセル入門(2022-11-14)
TEXTSPLIT関数（列と行の区切り記号で文字列を分割）｜エクセル入門(2022-11-12)
LAMBDA以降の新関数はVBAで使えるか｜VBA技術解説(2022-11-11)
WRAPCOLS関数（1次元配列を指定数の列で折り返す）｜エクセル入門(2022-11-08)
WRAPROWS関数（1次元配列を指定数の行で折り返す）｜エクセル入門(2022-11-08)
EXPAND関数（配列を指定された行と列に拡張する）｜エクセル入門(2022-11-07)
TAKE関数（配列の先頭/末尾から指定行/列数を取得）｜エクセル入門(2022-11-06)
DROP関数（配列の先頭/末尾から指定行/列数を除外）｜エクセル入門(2022-11-06)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.Excelショートカットキー一覧｜Excelリファレンス
7.並べ替え（Sort）｜VBA入門
8.エクセルVBAでのシート指定方法｜VBA技術解説
9.マクロって何？VBAって何？｜VBA入門
10.ExcelマクロVBAの基礎を学習する方法｜エクセルの神髄
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。