VBAでセルのデータをクリアしたいけど、見出しはそのまま残しておきたい。そう思ったことはありませんか？
「OffsetとClearContents」を組み合わせることで、データをクリアする場所を指定することができます。
目次
コード
|
1 2 3 4 5 6 7 8 9 |
Sub Clear_sample1() '-------------------------------------------------------- ' '見出し以外のデータをクリア '-------------------------------------------------------- Worksheets(1).Range("A1").CurrentRegion.Offset(1, 0).ClearContents End Sub |
解説
今回のコードはシンプルです。
名前データは「テストデータ・ジェネレータ」をお借りしました。
まずは「Range(“A1”).CurrentRegion」でA1でCtrl+AでA1:E11を選択した状態にします。
「Offset(1, 0)」で1行下にずらして参照範囲をA2:E11に変更します。
|
1 2 3 4 5 |
<div class="wp-block-cocoon-blocks-icon-box information-box common-icon-box block-box"> <div class="main-indent"> <div class="main-indent"><strong>Offset(行方向, 列方向)</strong></div> </div> </div> |
最後に「ClearContents」で表の枠は残して文字と数式だけを削除します。
補足
A列「No」の情報も残しておきたい場合は、「Offset(1, 1)」列方向を1に変更すればOKです！
|
1 |
Worksheets(1).Range("A1").CurrentRegion.Offset(1, 1).ClearContents |
