コメント編
セルにコメントを表示するには？
'A1のセルにコメントを表示する例です。
Sub コメント設定()
Range("A1").AddComment "新しいコメントです"
End Sub
セルにコメントの内容を取得するには？
'A1にあるコメントのコメント内容を取得します。
Sub コメントの内容()
MsgBox Range("A1").Comment.Text
End Sub
コメントの作成者を取得するには？
'A1にあるコメントの作成者の名前を取得します。
Sub コメントの作成者()
MsgBox Range("A1").Comment.Author
End Sub
次のコメントを選択するには？
'A1のコメントの次にあるコメントを選択します
Sub 次のコメント選択()
Range("A1").Comment.Next.Shape.Select
End Sub
特定の作成者のコメントだけを削除するには？
'「NOMBO」によって追加されたコメントをすべて削除します。
Sub コメント削除()
Dim C As Comment
For Each C In ActiveSheet.Comments
If C.Author = "NOMBO" Then C.Delete
Next C
End Sub