【VBA】見出し以外のデータをクリアする(Offset＆ClearContents)

VBAでセルのデータをクリアしたいけど、見出しはそのまま残しておきたい。そう思ったことはありませんか？

「OffsetとClearContents」を組み合わせることで、データをクリアする場所を指定することができます。

created by Rinker

マイナビ出版

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

コード
解説
補足

コード

Sub Clear_sample1()

'--------------------------------------------------------
' '見出し以外のデータをクリア
'--------------------------------------------------------

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

End Sub

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に変更します。

Offset(行方向, 列方向)

最後に「ClearContents」で表の枠は残して文字と数式だけを削除します。

補足

A列「No」の情報も残しておきたい場合は、「Offset(1, 1)」列方向を1に変更すればOKです！

'見出し以外のデータをクリア
Worksheets(1).Range("A1").CurrentRegion.Offset(1, 1).ClearContents

1 2	'見出し以外のデータをクリア Worksheets(1).Range("A1").CurrentRegion.Offset(1, 1).ClearContents