【ExcelVBA】シートのセルに設定されているコメントを一括で削除するには

この記事では、シートのセルに設定されているコメントを一括で削除する方法についてご説明します。

【動画】シートのセルに設定されているコメントを一括で削除する実際の動き

本題に入る前に、まずは次の動画をご覧ください。


ClearCommentsメソッドを実行し、指定した範囲内のセルに設定されているコメントを削除しています。

マクロ作成の流れ

STEP.1
コメントを削除したい範囲内のセルを指定する
コメントを削除したい範囲内のセルを指定します。
STEP.2
ClearCommentsメソッドを実行し、指定した範囲内のセルに設定されているコメントを削除する
ClearCommentsメソッドを実行し、指定した範囲内のセルに設定されているコメントを削除します。

Excelファイルの例

お見せしたExcelのシートでは、今回はB2からF11までの範囲のセルに対して一括でコメントを削除したいとします。

ちなみに、セル「G3」「G10」「B14」にもコメントが設定されていますが、この3つのセルのコメントは、削除範囲対象外のセルなので何もしません。(削除しません)

コードの例

Excelのマクロのコード(例)

Option Explicit

Sub test()

    Dim rng As Range
    
    'セルの範囲を取得する
    Set rng = Worksheets("Top").Range("B2:F11")

    'セルのコメントを削除する
    rng.ClearComments

End Sub

コードの解説

注目すべきコード①

最初に見て頂きたいのは8行目です。

    'セルの範囲を取得する
    Set rng = Worksheets("Top").Range("B2:F11")

この行では、コメントを削除したい範囲内のセル(B2からF11までのセル)を指定しています。

注目すべきコード②

次に見て頂きたいのは11行目です。

    'セルのコメントを削除する
    rng.ClearComments

この行では、ClearCommentsメソッドを実行して削除したい範囲内のセルを削除します。

動作確認

マクロ実行前

下のExcelは、設定されているセルのコメントを削除する前の状態です。

マクロ実行後

マクロを実行すると、指定した範囲内のセルに設定されているコメントが一括で削除されています。

最後に

本記事では、シートのセルに設定されているコメントを一括で削除する方法についてご説明しました。

手動でもコメントは一括で削除はできますが、マクロでも一括で削除したい場合は参考にしてみてくださいね。

プログラミングのスキルを習得するなら

プログラミングのスキルを習得したい、今のスキルをもっと高めたい、そう考えているなら「プログラミングスクール」がおすすめです。

プログラミングのスキルの基礎を身につけるなら「TechAcademy」で1週間の無料体験があるので、これで「プログラミングの基礎」を学ぶのにおすすめですよ。

→ TechAcademyの「1週間 無料体験」はこちら