Excel で値の最初の出現のみを素早くカウントするには、どうすればよいですか？

著者Sun変更日2025-08-29

Excel で大規模なデータセットを扱う際、重複値と一意の値が混在するリストに遭遇することはよくあります。このような場合、各値の最初の出現のみをカウントし、それ以降の重複は非一意として扱いたくなることがあります。たとえば、特定の値が複数回現れるリストで、各値の最初のインスタンスだけを対象にカウントしたいケースが考えられます（下記のスクリーンショットのようなシナリオ）。このタスクをこなせば、「最初の出現」として存在する個別のエントリがいくつあるかを瞬時に把握できます。こうした要件をExcel で効率的に実現するには、どうすればよいでしょうか？

重複を含むデータセットと最初のインスタンス値のカウントを示すスクリーンショット

数式で項目の最初の出現をカウントする
項目の最初の出現を Kutools for Excel でカウントする
VBA コードマクロで項目の最初の出現をカウントする

数式で項目の最初の出現をカウントする

各値の最初の出現をカウントするシンプルな方法の一つは、Excel の数式を使うことです。この方法では、データセット内で初めて現れるエントリを特定し、それらを合計して最終的なカウントを得られます。

シナリオとその価値：このソリューションは、データの列を扱う際に最適です。データ変更時に自動的に更新される数式ベースの動的ソリューションが必要な場合にぴったりで、アドインや特別な権限を一切必要としないため、ほとんどのユーザーがすぐにご利用いただけます。ただし、ワークシートに追加の列を挿入する必要があります。

次の手順で開始します：

1．データセットの最初の値のすぐ隣にある空白セルを選択します（例：データが A1:A10 にある場合はセル B1 を選択）。次の数式を入力してください：

=(COUNTIF($A$1:$A1,$A1)=1)+0

Enterキーを押した後、フィルハンドルをドラッグしてデータ列全体に数式を適用します。すると、その値の最初のインスタンスが含まれる行には「1」が、それ以外の行には「0」が表示されます。下記のスクリーンショットをご参照ください：

最初のインスタンスをカウントする数式が適用されている様子を示すスクリーンショット

ヒント：この数式では、$A$1はデータ範囲の先頭セルを示します（必要に応じて変更してください）。また、$A1は現在の行を指します。データが A1 から始まっていない場合は、参照を適切に調整してください。絶対参照と相対参照を組み合わせることで、数式を下方向にコピーしても正しいカウント動作が保証されます。

2．最初の出現の総数を合計するには、別の空白セル（例：新しい数式列の下）を選択し、次のように入力します：

=SUM(B1:B10)

Enterキーを押すと、カウント結果が表示されます。範囲 B1:B10 は、直前に数式を入力したセルと一致している必要があります。データの長さや数式の列が異なる場合は、セル参照を調整してください。

追加の注意点：この数式方式では、値が変更・追加・削除されると、リアルタイムでカウントが自動更新されます。ただし、データ範囲が変更された場合（たとえば新しい行が挿入されたときなど）は、数式の範囲を手動で拡張する必要があります。数式を自動的に展開したい場合は、データをExcel テーブルに変換することをおすすめします。

項目の最初の出現を Kutools for Excel でカウントする

Kutools for Excelがインストール済みなら、重複するセル／一意のセルを選択ユーティリティを活用して、大規模または複雑なデータセットの処理をさらに効率化できます。このツールは、値の最初の出現をカウントするだけでなく、視覚的に目立たせるためにハイライト表示することも可能です。

Kutools for Excel、AI 搭載🤖、300 以上の便利な機能を提供し、業務を簡単にします。

今すぐダウンロード

無償でインストールした後、Kutools for Excel を使用して次の手順を実行してください：

1．最初の出現をカウントしたい範囲のすべてのセルを選択します（例：A1:A10）。次に、リボン内でKutools>選択>重複するセル/一意のセルを選択をクリックします。下記のスクリーンショットをご参照ください：

リボン上のKutoolsタブに表示される「重複セルと一意のセルを選択」オプションを示すスクリーンショット

2．重複するセル/一意のセルを選択ダイアログボックスで、一意の値(最初の重複を含む)オプションをルールセクションから選択します。必要に応じて、選択されたセルを目立たせるため、独自の背景色で塗りつぶしたり、フォントの色を変更したりすることもできます。

「重複セルと一意のセルを選択」ダイアログのスクリーンショット

3．OKをクリックすると、「範囲を選択してください」内の最初の出現をカウントするダイアログボックスが表示されます。この合計には、一意の値と重複値の最初の出現が含まれます。参照用にスクリーンショットをご確認ください：

最初のインスタンスのカウント結果を示すダイアログのスクリーンショット

4．OKをクリックしてダイアログを閉じると、各項目の最初の出現が選択され、必要に応じてハイライト表示されるため、ワークシート内で簡単に識別できるようになります。

適用可能なシナリオと注意点：Kutools 方式は、大規模なデータテーブルを定期的に処理する方や、結果を即座にハイライト表示したい方に非常に効率的です。数式エラーや手動入力を回避できます。ただし、この方法を使用するには、システムにKutools アドインがインストールされている必要があります。正確な結果を得るには、ユーティリティ実行前にセルの選択範囲を必ずご確認ください。ハイライト表示を元に戻したい場合は、Excel の「元に戻す」機能（Ctrl + Z）をご利用いただけます。

VBA コードマクロで項目の最初の出現をカウントする

プロセスを完全に自動化したい場合は、VBA マクロを使ってリストをループ処理し、手動で数式を追加したり外部アドインに頼ったりすることなく、各値の最初の出現をカウントできます。これは、繰り返し実行するタスクや大規模なデータセットに特に効果的です。ただし、VBA マクロを使用するには、開発者タブを有効にして、ファイルをマクロ対応形式（*。xlsm）で保存する必要があります。

適用範囲と注意事項：このマクロは、上級ユーザー、または非常に大規模で頻繁に更新されるデータセットを扱う方に最適です。直接変更を行うため、実行前に必ずデータのバックアップを取得してください。また、Web 版Excel や、システムのセキュリティ設定によりマクロが無効になっている環境では、動作しない場合があります。

1．Excel で開発者タブのVisual Basicをクリックします。Microsoft Visual Basic for Applicationsウィンドウが表示されたら、挿入から標準モジュールを選択し、次のコードをモジュールウィンドウにコピー＆ペーストしてください。

Sub CountFirstInstances()
    Dim rng As Range
    Dim dict As Object
    Dim cell As Range
    Dim firstInstanceCount As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select the range to count first instances:", xTitleId, rng.Address, Type:=8)
    
    Set dict = CreateObject("Scripting.Dictionary")
    firstInstanceCount = 0
    
    For Each cell In rng
        If Not dict.exists(cell.Value) Then
            dict.Add cell.Value, 1
            firstInstanceCount = firstInstanceCount + 1
        End If
    Next cell
    
    MsgBox "The number of first instances in the selected range is: " & firstInstanceCount, vbInformation, "First Instance Count"
End Sub

2．コードを貼り付けたら、（実行）ボタンをクリックするか、F5キーを押してマクロを実行します。プロンプトが表示されたら、分析したい範囲（例：A1:A10）を選択し、OKをクリックしてください。選択範囲内の最初の出現（一意の値および重複値の最初の出現）のカウントを示すダイアログボックスが表示されます。

ヒントとエラー防止：誤った範囲を選択してしまっても、マクロを再実行するだけで簡単に修正できます。ただし、使用している Dictionary オブジェクトでは空のセルも対象となるため、データ範囲に空白があると、それらが空セルとして追加でカウントされる可能性があります。より正確な結果を得るには、実行前に空の行を含まないように選択するか、あらかじめフィルターで空白を除外してください。また、VBA 方式ではセキュリティ警告が表示されたり、マクロの許可が必要になる場合がありますので、必要に応じて信頼センターの設定をご確認・調整ください。

トラブルシューティングのアドバイスと備考：マクロが実行されない場合は、「ファイル」>「オプション」>「トラストセンター」>「トラストセンターの設定」>「マクロの設定」で、マクロが有効になっているかご確認ください。コードを実行する前に、必ず作業内容を保存してください。この VBA コードは単一列のリスト向けに設計されています。複数列の範囲で使用する場合は、必要に応じてコードをカスタマイズしてください。

まとめと推奨事項：以上のように、数式、Kutools ユーティリティ、VBA マクロのいずれを選ぶかは、ユーザーのスキルレベルやデータセットの規模、手動処理と自動処理のどちらを好むかによって異なります。数式は、小規模なデータやExcel の基本機能に慣れているユーザーにとって柔軟で手軽な選択肢です。Kutools はアドインをご利用の方に、迅速かつ視覚的に操作できるソリューションを提供します。一方、VBA マクロは重複処理の完全自動化や非常に大規模なデータセットの処理に最適です。どの方法も、ワークフローに応じて各値の最初の出現を効果的に特定・集計するのに役立ちます。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！