【仕事で使える】Excelマクロでコメント内容を取得する｜コピペでできるエクセルVBA

Excelの「コメント」機能、ありますよね。

正直に言うと、僕はこの「コメント」機能があまり好きではありませんでした。以前、業務SEをしていた頃、大量のコメントがあるExcel設計書やドキュメントの処理をしたことがあります。

しかも、修正の指摘や対応の経緯など、割と「大事なこと」がコメントとして書かれていることもあり、１個ずつコメントを確認したこともありました。

コメントは「検索しにくい」など、ひとクセあるのは確かですが…
今思えば、上記は非効率だったなと思います。。

こんなときは、Excel効率化の定番、VBAマクロの出番ですね。

今回は、すべてのシートのコメントを一括取得するマクロをご紹介します。VBAを使ったことのない方向けにも、画像つきでご紹介します！

ちなみに、同様の悩みがエクセルの「吹き出し(オートシェイプ)」機能でもよくあります。吹き出しの一括取得についてはこちらの記事からどうぞ！

エクセルVBAマクロを使ってコメントを一括で取得する手順①：準備
エクセルVBAマクロを使ってコメントを一括で取得する手順②：実行
- 「コードの表示」を開く
- VBAマクロエディタにプログラムを貼り付けて実行する
エクセルVBAマクロを使ってコメントを一括で取得する手順③：結果確認
まとめ

エクセルVBAマクロを使ってコメントを一括で取得する手順①：準備

実際には仕事で扱っているドキュメントがあればよいので準備は不要ですが、今回はシンプルな例を用意しました。

上記では、２箇所にコメントが入っていると思います。（今回、見やすくするためにコメントを「表示」設定にしています）

修正前の金額はコメントのみに書かれている、のが特徴です。

このExcelから、コメントのみを抽出します。

エクセルVBAマクロを使ってコメントを一括で取得する手順②：実行

準備ができたら実行です。以下の手順で、マクロのプログラムを実行してみてください。

「コードの表示」を開く

エクセルのシート名を右クリックすると、「コードの表示」という項目があるので開きましょう。

ここまで来たらもう少しです。

VBAマクロエディタにプログラムを貼り付けて実行する

「コードの表示」を行うと、次の画面になります。ここに、コメントを取得するプログラムを貼り付けて実行しましょう。

今回貼り付けるプログラムコードは以下のとおりです。
そのままコピーして貼り付けるだけでOKです。

Sub ブック内のコメント情報を取得する()
 
    Dim C   As Comment
    Dim R   As Long
    Dim objSheet
 
    Application.ScreenUpdating = False
     
    With Worksheets.Add
         .Cells(1, 1).Value = "シート名"
         .Cells(1, 2).Value = "セル位置"
         .Cells(1, 3).Value = "文言"
         .Cells(1, 4).Value = "コメント内容"
         R = 2
         For Each objSheet In ThisWorkbook.Worksheets
             For Each C In objSheet.Comments
                'シート名を取得
                .Cells(R, 1) = objSheet.Name
                'セル位置を取得＋簡易リンク作成
                .Cells(R, 2) = C.Parent.Address
                .Hyperlinks.Add Anchor:=.Cells(R, 2), Address:="#" & objSheet.Name & "!" & C.Parent.Address
                '文言を取得
                .Cells(R, 3) = objSheet.Cells.Range(C.Parent.Address).Text
                'コメント内容を取得
                .Cells(R, 4) = C.Text

                R = R + 1
            Next C
         Next
     End With
 
End Sub