指定した範囲内のメモ(旧コメント)を削除する【ClearCommentsメソッド】【ExcelVBA】

ClearCommentsメソッド

ClearCommentsメソッドは指定した範囲内のメモを全て削除するときに使用します。
Deleteメソッドでも同じことができます。

構文
Object.ClearComments

メモを削除する流れをつかむサンプルコード

'■わかりやすいようにメモを追加する
Public Sub Sample()
    Dim rng As Range
    For Each rng In Range("A1:C5")
        rng.AddComment "memo"
    Next rng
  'メモを非表示にする
  Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

'■範囲を指定してメモを削除する
Public Sub Sample2()
  Range("A1").ClearComments     'セル単体を指定
  Range("B1:C5").ClearComments  '範囲を指定
  Range("A:A").ClearComments    '列を指定
End Sub

'■シート全体のメモを削除する
Public Sub Sample3()
  ActiveSheet.Cells.ClearComments
End Sub

'■Deleteメソッドを使って削除する
Public Sub Sample4()
  Range("A1").Comment.Delete
End Sub

注意点

• 「メモ」とは、以前使われていた「コメント」のことです。
  Excel2019以降の「コメント」は違う機能を持つので混同しないよう注意してください。
• ClearCommentsメソッドを使用すると、範囲内にメモが無いセルが存在していてもエラーは出ません。
• Deleteメソッドを使用した場合は、セルにメモが追加されていないとエラーが出ます。

関連記事

• メモ(旧コメント)を追加する【AddCommentメッソド】
• 全てのメモ(旧コメント)の表示設定を一括で行う【DisplayCommentlndicator】
• 個別でメモ(旧コメント)の表示設定をする【Visibleプロパティ】
• 全シートの「コメントを一括で表示/非表示」処理をパーツ化する