1. 導入：なぜコメントの一括削除が必要なのか
Excelで共同作業をしていると、レビューや申し送り事項として大量の「コメント（またはメモ）」が挿入されることがあります。これらは確認作業には便利ですが、納品前や資料として配布する際にはすべて削除してクリーンな状態にする必要があります。手動で一つずつ削除するのは手間ですし、見落としが発生するリスクもあります。今回は、VBAを使ってシート内のコメントを瞬時に一掃する方法を解説します。
2. 基礎知識：コメントとメモの違い
近年のExcelでは、従来の「コメント」が「メモ」という名称に変更され、新たに「コメント（スレッド形式の会話）」という機能が追加されました。VBAでこれらを操作する場合、古い「メモ（旧コメント）」は Comment オブジェクトとして扱われ、新しい「コメント」は CommentThreaded オブジェクトとして扱われます。今回は、実務で最も削除対象になりやすい「メモ（旧コメント）」を一括削除する方法を取り上げます。
3. 実装/解決策：Commentsコレクションを活用する
Excelのシートには、そのシート内に存在するすべてのメモを管理する Comments コレクションが用意されています。これに対して Delete メソッドを実行するだけで、個別にセルを選択することなく、シート内のすべてのメモを削除することが可能です。これにより、コードの行数を抑えつつ、確実かつ高速に処理を行うことができます。
4. サンプルプログラム：アクティブシートのメモを一括削除
以下のコードは、現在開いているシート内のすべてのメモを削除するものです。標準モジュールにコピーして実行してください。
Sub DeleteAllComments()
‘ シート内にメモが存在するか確認
If ActiveSheet.Comments.Count = 0 Then
MsgBox “削除対象のメモはありません。”, vbInformation
Exit Sub
End If
‘ ユーザーに最終確認を行う（誤操作防止）
If MsgBox(“シート内の全てのメモを削除しますか？”, vbYesNo + vbQuestion) = vbYes Then
‘ すべてのメモを削除
ActiveSheet.Comments.Delete
MsgBox “全てのメモを削除しました。”, vbInformation
End If
End Sub
5. 応用・注意点：現場で役立つ補足
・誤操作の防止：上記コードのように MsgBox で確認を挟むことは、実務においては非常に重要です。一度削除したメモは「元に戻す（Ctrl+Z）」で復元できない場合が多いため、必ず確認プロセスを入れましょう。
・対象を限定する：もし特定の範囲（例えばA1:D10のみ）のメモを消したい場合は、ActiveSheet.Comments.Delete ではなく、Range(“A1:D10”).ClearComments メソッドを使用してください。
・新しいコメントへの対応：Excel 365などの新しいスレッド形式のコメントも削除したい場合は、CommentThreaded オブジェクトに対する処理が別途必要になります。混在する環境では、両方のオブジェクトを削除するような汎用的なプロシージャを作成しておくと、どんなファイルにも対応できるようになります。
