Excel で COUNTIF 関数と LEFT 関数を組み合わせて、特定の文字で始まるセルをカウントする

Excel で大規模なデータセットを扱う際、指定された範囲内で特定の文字（または文字／数字）で始まるセルがいくつあるかを調べる必要が頻繁に生じます。これは、商品コード、氏名、命名規則に従ったカテゴリ項目など、一定のパターンに沿ったデータをグループ化・セグメント化し、迅速に分析するのに非常に役立ちます。たとえば、常に特定の文字で始まるアイテムや従業員名も、適切なExcel 関数やツールを使えば、効率的にフィルタリング・カウントできます。このチュートリアルでは、特定の文字で始まるセルの数をカウントするための実用的な方法をいくつかご紹介します。その中には、従来の数式、専用のExcel アドイン、高度なシナリオ向けの VBA コードが含まれます。それぞれのアプローチには独自のメリットがあるため、あなたのニーズやデータの状況に最も適した方法を柔軟に選べます。

数式を使用して、特定の文字で始まるセルをカウントする
特定の文字で始まるセルを簡単にカウントできる優れた機能
特定の文字で始まるセルをカウントする VBA マクロ

数式を使用して、特定の文字で始まるセルをカウントする

下のスクリーンショットのようにテキスト文字列のリストがあり、その中で「K」から始まるセルがいくつあるかをカウントする必要があるとします。こうした作業は、データ検証やリストのチェック、命名規則に従ったコードのフィルタリングなどでよく行われます。

これを素早く実行するには、Excel のCOUNTIF 関数とLEFT 関数（または配列数式の組み合わせ）を使った複数の数式が活用できます。「先頭が～」という条件に一致するセルだけをピンポイントで抽出可能！

1。カウント結果を表示したい空白セルを選択し、以下の数式をコピーしてそのセルに貼り付けます。その後、Ctrl + Shift + Enter（一部のExcel バージョンでは配列数式の入力に必要）を押して結果を表示してください。

=COUNT(IF(LEFT(A2:A6,1)=「K」,1,""))

注：

• 1) A2:A6は、評価するテキスト文字列を含む範囲です。1は、先頭の1 文字のみを比較することを指定します。「K」は、必要に応じて任意の文字に置き換えてください。実際のデータに合わせて、範囲と対象文字を自由に調整できます。
• 2) 古いバージョンのExcel では、Ctrl + Shift + Enter の使用を忘れると、数式が期待通りに計算されないことがあります。一方、Microsoft 365 およびExcel 2021 では、配列が自動的にスピルされることが多くなっています。
• 3) 以下の数式も、お使いのExcel バージョンやご要望に応じて役立つことがあります。
  =COUNTIF(A2:A6,「K*」)
  この数式はワイルドカードを使用しており、範囲 A2:A6 内で「K」で始まる値をすべてカウントします。配列入力は不要です。
  =SUMPRODUCT(--(LEFT(A2:A6,1)=「K」))
  この数式は配列数式の代替として便利です。なぜなら、SUMPRODUCTは配列をネイティブに処理できるからです。

実用的なヒント：他の文字、または複数の先頭文字で始まるセルをカウントしたい場合は、LEFT 関数内の数値を簡単に調整するだけです（例：最初の2 文字を対象にする場合は)LEFT(A2:A6,2)）。また、ソースデータの先頭に不要なスペースが含まれていないか、必ずご確認ください。スペースがあると、カウント結果が正確でなくなる可能性があります。

特定の文字で始まるセルを簡単にカウントできる優れた機能

1。チェックしたいセル範囲を選択します。Kutoolsタブに移動し、選択 > 特定のセルを選択するをクリックしてください。下のスクリーンショットをご参照ください。

2。特定のセルを選択するダイアログで、以下の設定を完了してください。

• 2.1) 選択タイプでセルを個別にチェックするには、セルを選択します。
• 2.2) 指定タイプドロップダウンから、先頭が次と一致を選択します。
• 2.3) テキストボックスに検索対象の先頭文字（例：「K」）を入力し、検索内容を指定します。
• 2.4) 実行するには、OKをクリックしてください。

3。操作が完了すると、別の特定のセルを選択するダイアログが表示され、指定した文字で始まるセルが選択範囲内に正確にいくつあるかを知らせます。同時に、該当するすべてのセルがワークシート上で選択されます。OKをクリックしてダイアログを閉じ、結果をさらに確認または操作してください。

この方法は、結果を迅速に確認したい場合や、追加の書式設定や操作のために該当セルを選択したいユーザー、特に数式を多用しないワークフローで作業しているユーザーに強く推奨されます。拡張機能は大規模なデータセットをシームレスにサポートし、手動での数式管理なしに迅速かつ繰り返し操作を実行できます。

注：この方法では大文字と小文字が区別されます。期待通りの一致件数が得られない場合は、条件がセルの先頭文字の大文字／小文字および文字と完全に一致しているかご確認ください。

特定の文字で始まるセルをカウントする VBA マクロ

高度なユーザー向け、または動的・フィルターされたデータセット全体で特定の文字で始まるセルの数をカウントする必要がある自動化シナリオでは、VBA が柔軟な代替手段を提供します。シンプルなマクロを使うだけで、任意の範囲でこの操作を簡単に実行可能。特に、カウント作業を頻繁に繰り返す場合や、データが頻繁に変更され、数式の再更新を避けたい場面でその真価を発揮します。

以下のマクロは、対象範囲の選択とチェックする文字の入力をユーザーに促します。その後、各セルを分析し、カウント結果をわかりやすいダイアログで表示します。このソリューションは、繰り返し作業の自動化や、数式が使えないテーブル（フィルター済みテーブル、保護されたシート、インタラクティブなレポートなど）での作業に最適です。マクロは特に設定を変更しない限り、大文字と小文字を区別しません。

1。Alt + F11を押して、Microsoft Visual Basic for Applicationsエディタを開きます。VBA ウィンドウで、挿入 > 標準モジュールをクリックし、以下のコードをモジュールウィンドウに貼り付けます。

Sub CountCellsStartingWithChar()
    Dim WorkRng As Range
    Dim Cell As Range
    Dim FirstChar As String
    Dim CountNum As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select the range to count:", xTitleId, WorkRng.Address, Type:=8)
    
    FirstChar = Application.InputBox("Enter the character to check:", xTitleId, "", Type:=2)
    
    CountNum = 0
    
    If WorkRng Is Nothing Or FirstChar = "" Then
        MsgBox "No valid range or character specified.", vbExclamation, xTitleId
        Exit Sub
    End If
    
    For Each Cell In WorkRng
        If Not IsEmpty(Cell.Value) Then
            If Left(Cell.Value, 1) = FirstChar Then
                CountNum = CountNum + 1
            End If
        End If
    Next
    
    MsgBox "Number of cells beginning with '" & FirstChar & "': " & CountNum, vbInformation, xTitleId
End Sub

2。VBA エディタを閉じてワークシートに戻り、Alt + F8を押してマクロ一覧を開きます。CountCellsStartingWithCharを選択し、実行をクリックしてください。プロンプトに従って範囲を選択し、対象の文字を指定します。

実用的なヒント：このマクロはテキストベースの列またはリストに最適です。比較を大文字小文字を区別しないようにするには、Left(Cell.Value,1) = FirstCharの行を次のように置き換えてください。LCase(Left(Cell.Value,1)) = LCase(FirstChar)。また、範囲を選択してくださいには対象のセルのみが含まれていることを確認してください。エラーを返す結合済みや数式が含まれていると、結果に影響を与える可能性があります。

「有効な範囲または文字が指定されていません」と表示された場合は、再度お試しいただき、プロンプトを空欄にしないようご注意ください。このマクロは単なるカウント作業だけでなく、マルチステップレポートや 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％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

---

すべての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 日間のフル機能トライアル— 登録不要、クレジットカード不要
• 最高のお得感— 個別アドイン購入よりお得

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