(1)１つのセルのコメントを足せるでも設定以外で設定するなら
右クリックーコピーーコピー先のセルで右クリックー形式を選択して貼り付けー（貼り付けを）コメントを選ぶ
ーーー
VBAで指定セルの値をアクチブセルにセットする。
標準モジュールに
Sub test01()
Dim cnsRANGE As Object
Set cnsRANGE = Application.InputBox("セル指定=", Type:=8)
On Error GoTo SET_COMMENT_ERROR
' コメントを追加 ※既にコメントがあるとエラー処理に進む
ActiveCell.AddComment cnsRANGE.Value
On Error GoTo 0
' コメントを表示(常時表示)
ActiveCell.Comment.Visible = True
' セルを選択した上でコメントを選択
ActiveCell.Select
' コメントの書式セット
Selection.Comment.Shape.Select True
Selection.Font.ColorIndex = 5 ' 青文字
Selection.AutoSize = True ' AutoSize
' コメントを非表示する
ActiveCell.Comment.Visible = False
Set cnsRANGE = Nothing
Exit Sub
SET_COMMENT_ERROR:
Set cnsRANGE = Nothing
End Sub
これをコマンドボタン起動などにすれば使えるかも。
他シートのセル値をコメントンも指定できます。
（１）と同じことをやるなら、同じセルを指定すればOK。
