Excel でコメントの数をカウントするにはどうすればよいですか?
大規模なExcel ワークシートを扱う際、データに注釈を加えたり、フィードバックを提供したり、自分や共同作業者向けに重要なメモを強調表示するためにコメントを活用するのは一般的です。しかし、データ監査や品質保証、あるいは単にブックのドキュメント内容を確認する際に、ワークシート内にコメントがいくつあるかを素早く把握したい場面も少なくありません。コメント付きセルを正確にカウントすることで、重要なメモを見落としたり、誤って削除したりするリスクを回避できます。本チュートリアルでは、Excel でコメントを含むセルの数をカウントするための実用的な方法をいくつかご紹介します。組み込み機能から柔軟なコードベースのアプローチまで網羅しており、あなたのExcel スキルやワークフローのニーズに応じて最適な方法を選べます。
「ジャンプ」機能(特定の条件に一致するセルの選択)でコメントを含むセルの数をカウントする
ユーザー定義関数(UDF)でコメントを含むセルの数をカウントする
「ジャンプ」機能(特定の条件に一致するセルの選択)でコメントを含むセルの数をカウントする
Excel のジャンプ機能(「特定の条件に一致するセルの選択」)を使えば、ワークシート内のコメント(最新版のExcel では「ノート」とも呼ばれます)を含むすべてのセルを瞬時に視覚的に選択・カウントできます。この方法は、シンプルなカウントが必要で、かつコメントが表示可能でアクセス可能なワークシートを扱う際に特に迅速で効果的です!
1.リボンタブで、ホーム > 検索と選択 > ジャンプをクリックすると、「ジャンプ」ダイアログボックスが開きます。スクリーンショットを参照してください:

2.「ジャンプ」ダイアログボックスで、選択対象セクションのコメントオプションを選択すると、ワークシート内の従来型コメントを含むすべてのセルが強調表示されます。スクリーンショットを参照してください:

3.OKをクリックして選択を適用します。アクティブなワークシート内でコメントが含まれるすべてのセルが強調表示されます。選択されたセルの数は、Excel ウィンドウ下部のステータスバーに表示されます。スクリーンショットを参照してください:

適用可能なシナリオ:この方法は、手軽にチェックしたいときや、コメントの位置を視覚的に確認したいときに最適です。コーディングの知識は不要で、すべての標準版Excel でご利用いただけます。
制限事項:この方法では、Excel のバージョンによって、コメントが付いている空白セルがカウントされないことがあります。これは、選択範囲が事前の設定やExcel のビルドに応じて、値のないセルをスキップする場合があるためです。
ヒント:Ctrl + Gショートカットキーでジャンプダイアログボックスを開き、特定の条件に一致するセルの選択ボタンをクリックすれば、ジャンプ機能にすぐアクセスできます。
実用的なアドバイス:ワークシートに従来型コメントと新しいスレッド形式のノート(最近のExcel バージョンで導入)が混在している場合、ジャンプ機能では従来型コメントのみがカウントされます。スレッド形式の「ノート」または「コメント」については、以下に示す VBA ベースの方法を使用して、より正確な結果を得る必要があります。
トラブルシューティング:ステータスバーに「個数」が表示されない場合は、ステータスバーを右クリックして、ステータスバーメニュー内の「個数」オプションにチェックが入っているかをご確認ください。何も選択されていない場合は、正しいワークシート上にいることと、実際にコメントが存在することをあわせてご確認ください。
ユーザー定義関数(UDF)でコメントを含むセルの数をカウントする
「ジャンプ」機能は素早く便利ですが、常に包括的で動的なカウントを提供できるわけではありません。特に、空白セルや数式を含むコメント付きセルの数を定期的に監視する必要がある場合には、その限界が顕著になります。より柔軟な対応をご希望の場合は、Excel の VBA エディターを使ってユーザー定義関数(UDF)をご利用いただけます。この方法により、ワークシート上の数式から直接、空白セルを含むすべてのコメントをカウントすることが可能になります。
1.ALT + F11を同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
2.VBA エディターで、挿入>標準モジュールをクリックし、表示された空のモジュールウィンドウに次のコードを貼り付けてください。
VBA コード:コメントを含むセルの数をカウントする
Function CountComments(xCell As Range)
'Update by extendoffice
Application.Volatile
CountComments = xCell.Parent.Comments.Count
End Function
3.コードを貼り付けて確認したら、VBA エディターを保存して閉じます。Excel のワークシートに戻り、カウント結果を表示したい任意の空白セルに次の数式を入力してください()A1:A100は実際の範囲に置き換えてください):
=countcomments(A1:A100)

4.Enterキーを押して関数を実行すると、セルに指定した制限範囲内のコメントの総数が表示されます。
パラメーターの説明:数式内の範囲(例:A1:A100)は、コメントをスキャンするセルを指定します。対象ワークシートの範囲に合わせて調整してください。
メリット:この方法では、空のセル内のコメントもカウントでき、動的データのシナリオに最適です。新しいコメントが追加または削除されると、自動的に更新されます。
注意点:関数を実行するにはマクロを有効にする必要があります。また、VBA コードをスレッド形式のコメント(一部のExcel バージョンでは「ノート」と呼ばれます)に対応するよう特別に更新しない限り、これらのコメントはカウントされません。
実用的なヒント:この UDF アプローチは、ワークシートを更新するたびにコメント数を自動的に再計算したい場合に非常に役立ちます。他のセルにこの数式をコピーする際は、目的の範囲に合わせてセル参照を忘れずに調整してください。
VBA コードでコメントを含むセルの数をカウントする
一度の操作で空のセルに含まれるコメントを含むすべてのコメントをカウントしたい場合や、大規模な範囲を素早く処理したい場合は、すぐに実行できる VBA マクロをご利用いただけます。この方法は、重複のないカウントや、ワークブック内のコメント使用状況に関する統計情報を効率的に収集する際に最適です。
1.ALT + F11を押して、Excel のMicrosoft Visual Basic for Applicationsウィンドウを開きます。
2.VBA エディターで、挿入>標準モジュールをクリックして新しいモジュールを追加し、モジュールウィンドウに次のコードを貼り付けます:
VBA コード:コメントを含むセルの数をカウントする
Sub CountComments()
'Update by extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
If VBA.Err > 0 Then
MsgBox 0
Else
MsgBox WorkRng.Count
End If
End Sub
3.コードを貼り付けたら、F5キーを押すか(または)
実行ボタンをクリックして)マクロを実行します。すると、コメントをカウントする範囲の選択を求めるダイアログが表示されます。スクリーンショットを参照してください:

4. 対象範囲を選択したら、OKをクリックします。選択範囲内で見つかったコメントの総数を示すメッセージボックスが表示されます。

メリット:マクロは大規模で複雑な範囲にも対応可能で、空白セルと入力済みセルの両方を効率的に処理できます。
注意点:このマクロを実行するには、ワークブックでマクロを有効にしてください。ファイルを開く際にセキュリティ警告が表示される場合があります。標準の「元に戻す」コマンドでは取り消せない意図しない変更が発生するおそれがあるため、マクロ実行前に必ず作業内容を保存してください。
トラブルシューティング:マクロが範囲選択のプロンプトを表示しない場合は、モジュールが正しく挿入されており、コードに構文エラーがないことをご確認ください。コードを失わないよう、ワークブックは必ずマクロ有効ファイルとして保存してください。
適用範囲:ワークブックの注釈使用状況を把握する際に、数式駆動のセルではなく要約された結果が必要な場面、特にワークブックの監査やレポート作成に最適です。
追加の提案:マクロやセキュリティの制限が厳しい環境で作業する場合や、VBA に不慣れなユーザーと共同作業する際は、「ジャンプ」機能を試すか、Kutools などのアドインを使って、より高度なコメント管理機能をご活用ください。
関連記事:
Excel で新しいワークシートまたはワークブック内のすべてのコメントを一覧表示するには、どうすればよいですか?
Excel でコメント内のテキストを検索・置換するにはどうすればよいですか?
Excel で複数のセルに素早くコメントを挿入するには、どうすればよいですか?
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得