Excelでコメントを一括設定するには？

質問

ExcelでAの列すべてにコメントをつけたいのですが、一つ一つコメントの挿入をせずにする方法はないでしょうか？
例えばAの列に用語があって、Bの列にコメントとなる意味を書いています。
A1のコメントにB1,A2のコメントにB2という風にしたいです。

A B
1 用語1 コメント1
2 用語2 コメント2
3 用語3 コメント3

Excelに詳しい方おられましたら教えてください。

回答No.1

imogasi · ベストアンサー

関数式ではできないでしょう。関数式は「値」を左右する
ツールですが、「コメント」は次元（フェーズと言うか、
正しい用語は判らない）が違います。
そこでＶＢＡの出番です。
Ｂ列に、対応する行のＡ列に入れる文章を作ります。
ツール－マクロ－ＶＢＥで出てくる画面の、メニューの
挿入－標準モジュールをクリックして出てくるコードウインドウに
Sub test01()
d = Range("b1").CurrentRegion.Rows.Count
MsgBox d
For i = 1 To d
Cells(i, "A").ClearComments
Cells(i, "A").AddComment
Cells(i, "A").Comment.Visible = False
Cells(i, "A").Comment.Text Text:=Cells(i, "B").Text
Next i
End Sub
を貼りつけて実行してください。

お礼

できました！
ありがとうございます。