ExcelVBAでセルにコメントが存在するかを調べる

ExcelVBAでセルにコメントがついているかどうかを調べるには、Range.NoteTextメソッドを使います。

このメソッドは、セルのコメントの取得および設定をするメソッドです。このメソッドでコメントの文字列を取得しておいて、取得した文字列のバイト数でコメントの数を判断するのが一般的みたいです。

Function IsCommentCell(sAddress as String) as Boolean
  IsCommentCell = Len(Range(sAddress).NoteText) > 0
End Function

このように関数にしておくと使いやすいかもしれません。