現在のブック内のすべてのコメントを新しいワークシートまたはワークブックにリストするにはどうすればよいですか？

コメントが多数含まれているワークブックがあり、すべてのコメントをレビューするために新しいワークシートまたはワークブックにリストしたい場合、どのようにすればよいでしょうか？次の方法は、Excelでワークシート/ワークブックのすべてのコメントを新しいワークシートまたはワークブックに迅速にリストするのに役立ちます。

VBAコードを使用して、現在のブック内のすべてのコメントを新しいワークシートにリストします

Kutools for Excelを使用して、現在のブック内のすべてのコメントを新しいワークシートまたはワークブックにリストします

VBAコードを使用して、現在のブック内のすべてのコメントを新しいワークシートにリストします

次のVBAコードは、現在のブック内のすべてのコメントを新しいワークシートにリストします。新しいワークシートでは、ブック全体のすべてのコメントが、シート名、セルアドレス、コメント内容、およびセル名とともにリストされます。以下の手順でこの方法を使用してください：

1. 「開発」>「Visual Basic」をクリックすると、「Microsoft Visual Basic for Applications」ウィンドウが表示されます。「挿入」>「モジュール」をクリックし、モジュールに次のVBAコードを入力します。

VBA: 新しいワークシートにすべてのコメントをリストします。

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. 次に、 ボタンをクリックしてコードを実行すると、現在のブック内のすべてのコメントを持つ新しいワークシートが作成されます。スクリーンショットをご覧ください：

Kutools for Excelを使用して、現在のブック内のすべてのコメントを新しいワークシートまたはワークブックにリストします

「Kutools for Excel」の「コメントリストを作成する」機能を使用すると、すべてのコメントを新しいワークシートまたは新しいワークブックに迅速にリストできます。

Kutools for Excel: 300以上の便利なExcelアドインが含まれており、30日間無制限で無料試用可能です。いますぐ入手してください。

1. Kutools for Excelをインストールしている場合は、「Kutools」>「その他」>「コメントリストを作成する」をクリックします。

2. 「コメントリストを作成する」ダイアログボックスで：

• コメントをリストする範囲を選択します。「現在のシート」または「全シート」を選択できます。
• 次に、コメントリストを配置する場所を指定します。コメントを新しいワークブックまたは新しいシートにリストできます。スクリーンショットをご覧ください：

3. 「作成」ボタンをクリックします。新しいワークシートが追加され、アクティブなワークシートのすべてのコメントとその属性（シート名、セル参照、行と列）がリストされます。スクリーンショットをご覧ください：

「コメントリストを作成する」に関する詳細情報は、「コメントリストを作成する」機能の説明をご覧ください。

関連記事：

• セル内のすべてのコメント形式を変更する
• すべてのコメントの作成者名を変更する
• コメント内のテキストを検索して置換する
• Excelですべてのコメントとコメントインジケーターを表示または非表示にする
• Excelでセルの内容をコメントに変換する
• Excelでコメントをセルの内容に変換する