Excelのコメントを一括で削除する方法｜基本、ショートカット、VBA

Excelのコメントを一括で削除したいときはないでしょうか。

こんなコメントとメモです。

特に社外へ提出する資料などに内部のやり取りが記載したコメントは残したくないですよね。

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

・Excelのコメントを一括で削除したいがやり方がわからない。
・ショートカットやVBAで効率的に行いたいがやり方がわからない。

ですよね。

今回はそんなお悩みを解決する
Excelのコメントを一括で削除する方法について
まとめます！

Excelのコメントを一括で削除する基本操作

シートの左上の矢印をクリックし全体を選択します。

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

[編集]グループの[クリア]＞[コメントとメモをクリア]を選択します。

コメントとメモがクリアされました。

シート内のコメントとメモがクリアされましたね。

Excelのコメントを一括で削除するショートカット

Excelのコメントを一括で削除するショートカットは以下の順序で実施します。

コメントとメモをクリア

Ctrl + A

Alt + H

Alt + E

Alt + M

タカヒロ

ショートカットですとより早くできますね。

Excelのコメントを一括で削除するVBA

ExcelVBAでExcelのコメントを一括で削除する方法について説明します。

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

コメントとメモをクリア（シート全体選択）

Cells.Selectですべてを選択します。
次に、Selectionで選択範囲を対象とし、
ClearCommentsメソッドでコメントとメモをクリアします。

Sub コメントとメモをクリア_シート全体選択()
    'すべて選択
    Cells.Select
    
    'コメントとメモをクリア
    Selection.ClearComments
    
End Sub

コメントとメモをクリア（シートとレンジ指定）

コメントとメモをクリアしたいシート及びセルの範囲が決まっている場合は以下のようにします。

ThisWorkbook.Worksheets(“＜シート名＞”).Range(“＜セルの範囲＞”).ClearComments

Sub コメントとメモをクリア_シートとレンジ指定()
    
    'コメントとメモをクリア_シート指定
    ThisWorkbook.Worksheets("Sheet1").Range("A1:B3").ClearComments
    
End Sub

コメントとメモをクリア（ブック全体）

コメントとメモをクリアする対象をブック全体とする場合は、存在するシート分処理を繰り返すようにします。
Sheets.Countプロパティでシートの件数を取得し、
Sheets(num)でシートのインデックスを指定し、指定レンジ「A1:B3」を対象に書式をクリアにします。

Sub コメントとメモをクリア_ブック全体()
    
    Dim num As Integer
    
    'コメントとメモをクリア_ブック全シート対象
    For num = 1 To Sheets.Count
        'レンジ指定のコメントとメモをクリア
        Sheets(num).Range("A1:B3").ClearComments

    Next
    
End Sub

タカヒロ

こちらを実行する場合はブック全体のコメントとメモがクリアされますので、実行前にバックアップをしたほうがよいでしょう。