セル.AddComment.Text 文字列

　セルにコメントを挿入するには、セル（Rangeオブジェクト）のAddCommentメソッドを使います。ただし、すでにコメントが挿入されているセルにAddCommentメソッドを実行するとエラーになります。そこで、セルにコメントが挿入されているかどうかを事前に判定するとよいでしょう。

　コメントの有無を調べるにはTypeName関数を使います。セルのCommentオブジェクトが「Comment」という文字列を返すかどうかを調べればOKです。

[画像のクリックで拡大表示]