セル内の文字数、英字数、数字の個数をそれぞれカウントするにはどうすればよいですか?
Excel でデータを管理する際、セル内のテキストを分析する必要が頻繁に生じます。たとえば、文字の総数をカウントしたり、英字のみを抽出したり、数字だけに注目したりするケースです。本ガイドでは、セル内の文字総数や、英字・数字・特殊文字を個別にカウントするためのさまざまな手法をご紹介します。各手法には独自の特徴と利点があり、シンプルなExcel 数式や組み込み機能から VBA、高度な関数まで、シナリオに応じて最適な方法をお選びいただけます。さらに、高度な自動化や条件付き書式を活用したタスク向けの補足ソリューションも以下でご案内します。

LEN 関数で文字数をカウント
セル内の数字、英字、スペース、その他のすべての記号を含む文字総数をカウントするには、LEN 関数をご利用いただけます。これは、フォームフィールドで文字数制限を適用する際や、文字数制限のあるシステムへデータをインポートする準備などに役立ちます。
1。空白セル(たとえば、データが A1 にある場合は B1)に、次の数式を入力してください。
=LEN(A1) Enter キーを押すと、セル A1 内のスペースや句読点を含む文字総数が表示されます。
2。フィルハンドルを下または横にドラッグして、この数式を他のセルにも適用しましょう。これにより、リスト内の各セルの文字数を一括でカウントし、迅速に検証・レビューできます。

KUTOOLS AI でExcel の魔法を解き放ちましょう
- スマート実行:セル操作、データ分析、チャート作成をすべてシンプルなコマンドで実現します。
- カスタム数式:ワークフローの効率化に役立つ、あなただけのカスタマイズ数式を生成します。
- VBA コーディング:VBA コードを簡単に記述・実装できます。
- 数式の解釈:複雑な数式が簡単に理解できます。
- テキスト翻訳:スプレッドシート内で言語の壁を乗り越えましょう!
LEN 関数で数字以外の文字数をカウント
数字以外の文字(英字や句読点など)のみをカウントしたい場合は、以下の方法をご活用ください。これは、数値を除外してテキストデータを抽出する必要がある場面(特定のコンプライアンス要件やレポート作成など)で特に便利です。
空白のセル(例:B1)を選択し、次の数式を入力してください。
=LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,0,""),1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,"")) (必要に応じて A1 を対象セルに置き換えてください。)数式を入力した後、Enter キーを押して、フィルハンドルを使って範囲内の他のセルにも数式をコピーしてください。これにより、各セル内の数字以外の文字数が求められます。
ヒント:エラーや予期しない結果が発生した場合は、改行やノーブレークスペースなどの非表示文字が含まれていないか、再度ご確認ください。これらは文字数に影響を与える可能性があります。
LEN 関数で数字のみの個数をカウント
セルに含まれる数字の正確な個数を把握し、他のすべての文字を無視したい場合があります。これは、ID 番号やコードなど、特定の桁数の数値が含まれると想定されるセルを特定するデータクリーニングにおいて特に重要です。
空白のセル(例:B1)に、次の数式を入力してください。
=SUM(LEN(A1)-LEN(SUBSTITUTE(A1,{1,2,3,4,5,6,7,8,9,0},))) Enter キーを押して結果を計算し、必要に応じてフィルハンドルを使って他のセルにも数式をコピーしてください。
関数で英字と数字の個数をカウント
この方法を使えば、単なる総数だけでなく、セル内の英字と数字の並び順まで正確に識別できます。コードやシリアル番号、英数字が混在する文字列の構造を検証したいときに特に効果的です。
1。Altキーを押しながらF11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
2。VBA エディターで、挿入>標準モジュールをクリックして、提供された VBA コードをモジュールウィンドウに貼り付けてください。
VBA:関数で英字と数字の個数をカウント
Function AlphaNumeric(pInput As String) As String
'Updateby20140303
Dim xRegex As Object
Dim xMc As Object
Dim xM As Object
Dim xOut As String
Set xRegex = CreateObject("vbscript.regexp")
xRegex.Global = True
xRegex.ignorecase = True
xRegex.Pattern = "[^\w]"
AlphaNumeric = ""
If Not xRegex.test(pInput) Then
xRegex.Pattern = "(\d+|[a-z]+)"
Set xMc = xRegex.Execute(pInput)
For Each xM In xMc
xOut = xOut & (xM.Length & IIf(IsNumeric(xM), "N", "L"))
Next
AlphaNumeric = xOut
End If
End Function
3。VBA コードを保存してエディターを閉じてください。空白セルに数式 =AlphaNumeric(A1)を入力し(必要に応じて A1 を変更)、Enter キーを押してください。必要に応じて、フィルハンドルを使って数式をコピーしましょう。
ヒント:
(1)「L」は英字、「N」は数字を表します。
(2)この VBA は!や@、#などの特殊記号には対応していません。英字・数字・特殊記号が混在する文字列を処理する場合は、後述のセクションで説明するように、事前にデータを前処理するか、更新された VBA ソリューションをご利用ください。
COUNTCHAR 関数で特定の文字の出現回数をカウント
文字列内に特定の文字(「n」やその他の記号・英字など)が何回出現するかをカウントしたいときは、操作が簡単で使いやすいインターフェースを備えたKutools for ExcelのCOUNTCHAR 関数をご利用ください。頻繁にこのようなカウントが必要な方や、手動での数式管理を最小限に抑えたい方に特に効率的です。
Kutools for Excel をインストールした後は、以下の手順に従ってください。(Kutools for Excel を今すぐ無料ダウンロード!)
1。カウントしたい文字をセルに入力します。
2。結果を表示する空白セルを選択し、Kutools>拡張機能>統計・数学>COUNTCHARをクリックします。
3。関数の引数ダイアログで、Find_textに検索したい文字が入力されたセルを、Within_textに元のテキストが入力されたセルをそれぞれ指定すると、カウント結果が即座に表示されます。
4。OKをクリックすると、選択したセルに結果が表示されます。
この拡張機能を使えば、背景色やフォント色に基づいてデータを集計・操作したり、時刻データを高速で変換したりすることができ、Excel での複雑な作業も簡単にこなせます。
文字列内での特定の文字の出現回数をカウント
VBA:セル内の英字、数字、特定の文字種(大文字・小文字)をカウント
この方法は、大文字と小文字を区別したり、記号・数字・空白文字などを個別に抽出したりするなど、高度にカスタマイズ可能なカウントが求められる場面に最適です。大規模データセット全体でデータの一貫性を分析する監査や、複雑なデータ検証、品質管理などにも理想的です。
1。「開発」タブ>「Visual Basic」をクリックして VBA エディターを開き、「挿入」>「標準モジュール」をクリックして、次のコードをモジュールに貼り付けます。
Function CountCharType(cell As Range, Mode As String) As Long
Dim i As Integer
Dim s As String
Dim res As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
s = cell.Value
Mode = LCase(Mode)
res = 0
For i = 1 To Len(s)
Select Case Mode
Case "letter"
If Mid(s, i, 1) Like "[A-Za-z]" Then
res = res + 1
End If
Case "number"
If Mid(s, i, 1) Like "[0-9]" Then
res = res + 1
End If
Case "uppercase"
If Mid(s, i, 1) Like "[A-Z]" Then
res = res + 1
End If
Case "lowercase"
If Mid(s, i, 1) Like "[a-z]" Then
res = res + 1
End If
Case "space"
If Mid(s, i, 1) = " " Then
res = res + 1
End If
Case "symbol"
If Not (Mid(s, i, 1) Like "[A-Za-z0-9 ]") Then
res = res + 1
End If
End Select
Next
CountCharType = res
End Function 2。ワークシートの空白セルに数式(例:=CountCharType(A1, "uppercase"))を入力してください。また、「letter」、「number」、「lowercase」、「space」、または「symbol」を指定して、それぞれの文字種別ごとのカウントを得ることもできます。Enterキーを押して確定し、必要に応じて数式を下方向にドラッグして他の行にも適用してください。
条件付き書式を使用する:文字数または数字の個数がしきい値を超えるセルをハイライト
条件付き書式を使用するは、特定の文字数基準を満たすセルを視覚的に識別するために使用できます。たとえば、一定以上の文字数を持つエントリをフラグ付けしたり、指定された個数を超える数字を含むセルをマークしたりする場合に役立ちます。これは品質管理、アンケート回答のレビュー、無効な入力に関する警告生成、インポートデータの監査などに有効です。
たとえば、文字数が18 を超えるすべてのセルをハイライトするには:
1。分析対象の範囲(例:A1:A100)を選択します。
2。ホーム>条件付き書式を使用する>新規ルールをクリックします。
3。数式を使用して書式設定するセルを決定するを選択し、次の数式を入力してください。
=LEN(A1)>18 4。書式設定をクリックしてハイライトスタイルを選択し、OKをクリックすると適用されます。これにより、内容が18 文字を超えるセルが目立つようになります。
同様に、数字が5 個を超えるセルをハイライトするルールも設定できます。
=SUMPRODUCT(--ISNUMBER(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789")))>5 これを条件付き書式の数式として入力してください。5は、必要に応じて別のしきい値に置き換えてください。この方法は、大規模なリストでの視覚的モニタリングや即時フィードバックに最適です。
注:条件付き書式は直接カウントを表示しませんが、レビューおよびデータ品質タスクに非常に適しています。
これらのソリューションを適用・組み合わせることで、Excel 内でシンプルなものから高度なものまでテキスト分析を実行できます。多言語データや標準外の文字を含むセルを扱う場合、特に特殊な Unicode 文字や予期しない空白文字が含まれていると、結果が異なる可能性があります。動的な分析や繰り返しのタスクを行う場合は、高度な数式や VBA を個人用マクロブックに保存することを検討してください。
関連記事:
最高の 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 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得
