【Excel VBA】セルの値のみクリアする方法！VBAの一括処理も！

Excelのセルの値のみを一括で削除したいときはないでしょうか。

例えば集計結果をもう一度やり直すため、数式は残して、値のみ削除したいときなどです。

けど、そんな中で悩むことは、

・セルの値のみをクリアするしたいがやり方がわからない。
・ショートカットやVBAで効率的に行いたいがやり方がわからない。

ですよね。

今回はそんなお悩みを解決する

・セルの値のみをクリアする基本操作
・セルの値のみをクリアするショートカット
・セルの値のみをクリアするVBA

についてまとめます！

セルの値のみをクリアする基本操作

値があるセルを選択します

[ホーム]タブを選択します

[編集]グループの[検索と選択]＞[定数]を選択します

値のみが選択されました

「Delete」クリックか右クリックし「削除」をクリックします

シート内の値がクリアされましたね。

タカヒロ

ただ、項目名も定数ですので選択されてしまいます。
除外する場合は以下の手順を追加してください。

消したくない値がある場合は[Ctrl]キーを押しながらセルを選択で解除します

項目名を除く値のみがクリアされました

セルの値のみをクリアするショートカット

セルの値のみをクリアするショートカットは以下の順序で実施します。

数式と値のクリア

Alt + H

Alt + FD

Alt + N×2回

Delete

セルの値のみをクリアするVBA

ExcelVBAで【Excel VBA】セルの値のみクリアする方法について説明します。

サンプルのVBAは以下の通りです。

セルの値のみをクリアする

値のみのセルをまとめて選択する場合はSpecialCellsメソッドを使用し、引数のデータ型に定数を意味する「xlCellTypeConstants」を指定します。

最後にClearContentsメソッドで選択されているセルの値を削除します。

Sub セルの値のみをクリアする()
    '定数のセルを選択します。
    ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Select
    
    '選択範囲の値を削除します。
    Selection.ClearContents
End Sub

実行結果です。

数式と値のクリア（削除除外追加）

値のみのセルをまとめて選択する場合はSpecialCellsメソッドを使用し、引数のデータ型に定数を意味する「xlCellTypeConstants」を指定します。

次に削除したくないセルの選択を解除します。

最後にClearContentsメソッドで選択されているセルの値を削除します。

Sub セルの値のみをクリアする_削除除外()
    '定数のセルを選択します。
    ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Select
    
    '削除したくないセルの選択を解除します。
    Range("A2:A7,C2:C7,B2:B7").Select
    
    '選択範囲の値を削除します。
    Selection.ClearContents
End Sub

実行結果です。