セル値そのものをコメントに表示したい場合、セル一つくらいでしたら、そのまま普通にすれば大丈夫ですが、結構の量となると、やっぱり時間がかかるということで。。。

X = ActiveCell.Value

ActiveCell.AddComment X

ActiveCell.Comment.Visible = False

ActiveCell.Comment.Shape.TextFrame.AutoSize = True

アクティブセルの値をコメントに転記して、常にコメントを表示するのではなく、マウスが上に来たら表示されるようにして、また、コメントのボックスの大きさは自動調整、、、って感じです。

コメントのボックスの大きさを指定する場合、最後のところが

ActiveCell.Comment.Shape.Width = 50
ActiveCell.Comment.Shape.Height = 15

って感じです。  加嶋

◆出口会計事務所のHP◆