現在のブック内のすべてのコメントを新しいワークシートまたはワークブックにリストするにはどうすればよいですか？
コメントが多数含まれているワークブックがあり、すべてのコメントをレビューするために新しいワークシートまたはワークブックにリストしたい場合、どのようにすればよいでしょうか？次の方法は、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でコメントをセルの内容に変換する
最高のオフィス業務効率化ツール
| 🤖 | Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し…… |
| 人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める…… | |
| スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ…… | |
| 高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト…… | |
| 列マネージャー：指定した数の列を追加 ｜列の移動 ｜非表示列の表示/非表示の切替｜ 範囲＆列の比較…… | |
| 注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキスト ライブラリ｜日付ピッカー｜データの統合 ｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）…… | |
| トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数 |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...
Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に
- Word、Excel、PowerPointでタブによる編集・閲覧を実現。
- 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
- 生産性が50%向上し、毎日のマウスクリック数を何百回も削減！
全てのKutoolsアドインを一つのインストーラーで
Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。
- オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
- 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了（MSI対応）
- 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
- 30日間フル機能お試し —— 登録やクレジットカード不要
- コストパフォーマンス最適 —— 個別購入よりお得