Excelでコメントが付いたセルの数を数えるにはどうすればよいですか？

ワークシート内のコメントの数を数えたことはありますか？この記事では、ワークシート内のコメント付きセルの数を数えるための簡単な方法をいくつか紹介します。

「ジャンプ」機能を使ってコメントが含まれるセルの数を数える

ユーザー定義関数を使用してコメントが含まれるセルの数を数える

VBAコードを使用してコメントが含まれるセルの数を数える

「ジャンプ」機能を使ってコメントが含まれるセルの数を数える

Excelの「ジャンプ」機能を使用すると、最初にすべてのコメント付きセルを選択し、ステータスバーで件数を確認できます。

1. 「ホーム」タブの「検索と選択」をクリックし、「ジャンプ」を選んでください。スクリーンショットをご覧ください：

2. 「ジャンプ」ダイアログボックスで、「選択」セクションの「 コメント」オプションをチェックしてください。スクリーンショットをご覧ください：

3. その後、「OK」ボタンをクリックしてダイアログを閉じると、アクティブなワークシート内でコメントが含まれているすべてのセルが一度に選択されます。そして、ステータスバーでコメントの件数を確認できます。スクリーンショットをご覧ください：

注: コメント付きの空白セルがある場合、その空白セルのコメントはカウントされません。

ヒント: Ctrl + G ショートカットキーを押して 「ジャンプ」ダイアログを開き、 「特別選択」ボタンをクリックして「ジャンプ」ダイアログを表示することもできます。

ユーザー定義関数を使用してコメントが含まれるセルの数を数える

上記の方法には欠点がありますので、空白セルのコメントも含めてすべてのセルコメントを数えるためにユーザー定義関数を作成することができます。

1. ALT + F11 キーを押すと、Microsoft Visual Basic for Applications ウィンドウが開きます。

2. 「挿入」>「モジュール」をクリックし、以下のコードをモジュールウィンドウに貼り付けます。

VBAコード：コメント付きセルの数を数える

Function CountComments(xCell As Range)
'Update 20140924
    Application.Volatile
    CountComments = xCell.Parent.Comments.Count
End Function

3. その後、コードを保存して閉じ、ワークシートに戻ります。空白のセルに次の数式を入力してください：=countcomments(A1)（A1はセル参照であり、他の任意のセルアドレスに変更できます）。スクリーンショットをご覧ください：

4. Enterキーを押すと、セルコメントの数が表示されます。

VBAコードを使用してコメントが含まれるセルの数を数える

以下のVBAコードでも、空白セルのコメントを含むすべてのセルコメントを数えることができます。

1. ALT + F11 キーを押すと、Microsoft Visual Basic for Applications ウィンドウが開きます。

2. 「 挿入」>「 モジュール」をクリックし、以下のコードをモジュールウィンドウに貼り付けます。

VBAコード：コメント付きセルの数を数える

Sub CountComments()
'Update 20140924
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」をクリックすると、選択範囲内のセルコメントの数が表示されます。

関連記事：

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

Excelでコメント内のテキストを検索して置換するにはどうすればよいですか？

Excelで複数のセルにコメントを迅速に挿入するにはどうすればよいですか？