コメント一覧を作成するサンプルマクロ Excelにはコメント一覧を出力する機能は用意されていないのでVBA(Visual Basic for Applications)で、マクロを作成しましょう。 Sub アクティブなブックの全コメントを一覧にする() Const ROW_HEAD As Long = 1 ' コメント一覧の見出し行とする行番号 Dim cmnt As Comment Dim cnt_sh As Long ' ワークシートの枚数 Dim num_row As Long ' コメントを一覧にして出力する行番号 Dim msg As String ' コメント一覧を作成するシートの挿入と見出しの作成 Worksheets.Add Before:=Worksheets(1) Cells(ROW_HEAD, 1).Value = "ワークシート名" Cells(ROW_HEAD,