ちまちまコメント入れたり編集したりするのって、大変。。。 必要に迫られて作成。 ＜コード＞ Sub コメントに置き換え() Dim i As Long Dim cl1, cl2 As String 'cl1＝コメント場所 、cl2＝コメント内容 For i = 2 To Range("A65536").End(xlUp).Row With C…

ちょいちょい作業の邪魔になるので、クイックツールバーに追加しました。 ＜コード＞ Sub コメント表示() Application.DisplayCommentIndicator = xlCommentAndIndicator Range("A1").SelectEnd Sub Sub コメント非表示() Application.DisplayCommentIndicat…