Excel でセルの先頭文字がアルファベットまたは数字かどうかを確認するには、どうすればよいですか？

著者Siluvia変更日2025-11-06

Excel で大規模なデータセットを扱う際、セルの先頭文字がアルファベット、数字、その他の文字のいずれで始まるかを素早く判別できると非常に便利です。たとえば、コード、住所、または複合形式のエントリを含むリストでは、先頭文字に基づいてフォーマットを検証したり、データを分類して以降の処理に備えたりしたい場面がよくあります。Excel にはこうしたチェック専用の組み込み関数はありませんが、適切な数式を使えば簡単に実現できます。場合によっては、VBA を活用した代替アプローチも有効です。以下では、セルの先頭文字を確実に判定するための明確な手順と実践的なアドバイスをご紹介します。

数式でセルの先頭文字がアルファベットか数字かを確認する

代替の VBA コードによる解決方法

数式でセルの先頭文字がアルファベットか数字かを確認する

Excel の数式を使えば、セルの先頭文字がアルファベット、数字、それ以外の文字のいずれであるかを簡単に判定できます。

1．結果を表示したい空白セルを選択し、数式バーに次の数式を入力して、Enterキーを押して確定します。

=IF(ISERR(LEFT(A2,1)*1),"letter","number")

この数式はセル A2 の先頭文字をチェックします。「1」を掛けてエラーが発生した場合は、その文字が数字ではないことを意味し、「letter（アルファベット）」を返します。それ以外の場合は「number（数字）」を返します。

数式を適用して、先頭の文字が英数字かどうかをチェックする

ヒント：数式が正しいセルを参照しているかご確認ください。上記の数式に含まれる A2 は、チェックしたい値が入力されているセルです。

2．最初のセルで数式を確定した後、結果セルを選択してフィルハンドルを下にドラッグすれば、他の行にも素早く適用でき、対応する列の各セルをチェックできます。

下図のとおり、先頭文字がアルファベットの場合は「letter」、数字の場合は「number」と表示されます。

数式を他のセルにドラッグしてコピーする

パラメーターの説明と実用上の注意点：この数式は、標準的なラテンアルファベットまたは数字で始まるセルに対して良好に動作します。ただし、一部の特殊文字や Unicode シンボルなど、数字に変換できない文字が含まれている場合、「letter」と返すことがあります。データセットにこうした文字で始まるエントリが含まれる可能性がある場合は、以下で説明するより正確な検出数式をご利用いただくことをおすすめします。

セルの内容が句読点、記号、その他の英数字以外の文字で始まる可能性がある場合は、次の拡張数式を使って結果を「Letter（アルファベット）」「Number（数字）」「Other（その他）」に分類できます。

=IF(A2="","",IF(AND(CODE(LEFT(A2,1))>=48,CODE(LEFT(A2,1))<=57),"Number",IF(OR(AND(CODE(LEFT(A2,1))>=65,CODE(LEFT(A2,1))<=90),AND(CODE(LEFT(A2,1))>=97,CODE(LEFT(A2,1))<=122)),"Letter","Other")))

この数式はまず、セルが空かどうかを確認します。空でない場合は、先頭文字の ASCII 値をチェックし、数字（48～57）、大文字アルファベット（65～90）、小文字アルファベット（97～122）のいずれかに該当するかを判定します。これらの範囲外の文字は「Other」として返されます。

数式を適用して、先頭の文字が特殊文字かどうかをチェックする

代替の VBA コードによる解決方法

バッチ処理やカスタムタスクへの統合など高度な用途には、選択したセルの先頭文字を自動的に評価し、「Letter（アルファベット）」「Number（数字）」「Other（その他）」に分類するシンプルな VBA マクロをご活用いただけます。このアプローチは、マクロ操作に慣れており、大量の繰り返し作業を効率化したいユーザーに最適です。

1．VBA エディターを開くには、開発者ツール＞Visual Basicをクリックします。Microsoft Visual Basic for Applicationsウィンドウが表示されたら、挿入＞標準モジュールをクリックし、以下のコードをモジュールに貼り付けます。

Sub CheckFirstCharacterType()
    Dim rng As Range
    Dim cell As Range
    Dim firstChar As String
    Dim codeNum As Integer
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select range to check", xTitleId, rng.Address, Type:=8)
    
    For Each cell In rng
        If cell.Value <> "" Then
            firstChar = Left(cell.Value, 1)
            codeNum = Asc(firstChar)
            
            If codeNum >= 48 And codeNum <= 57 Then
                cell.Offset(0, 1).Value = "Number"
            ElseIf (codeNum >= 65 And codeNum <= 90) Or (codeNum >= 97 And codeNum <= 122) Then
                cell.Offset(0, 1).Value = "Letter"
            Else
                cell.Offset(0, 1).Value = "Other"
            End If
        Else
            cell.Offset(0, 1).Value = ""
        End If
    Next cell
End Sub

2．コードを貼り付けたら、実行 F5ボタンをクリックするかキーを押して実行します。チェックしたい範囲を選択するプロンプトが表示されるので、確定すると、マクロが選択範囲内の各セルを分析し、結果（「Number」「Letter」または「Other」）をデータのすぐ右隣の列に出力します。

実用的なヒント：隣接する列にすでに数式や書式設定が含まれている場合は、cell.Offset(0,1)を必要に応じて調整し、結果を別の列に出力してください。
－マクロを使えば、手動で数式をコピーするよりも大規模な範囲をはるかに高速に処理でき、ミスの可能性も最小限に抑えられます。
－新しい VBA コードを実行する前に、必ずブックを保存して、意図しない変更を防いでください。

KUTOOLS AI でExcel の魔法を解き放ちましょう

スマート実行：セル操作、データ分析、チャート作成をすべてシンプルなコマンドで実現します。
カスタム数式：ワークフローの効率化に役立つ、あなただけのカスタマイズ数式を生成します。
VBA コーディング：VBA コードを簡単に記述・実装できます。
数式の解釈：複雑な数式が簡単に理解できます。
テキスト翻訳：スプレッドシート内で言語の壁を乗り越えましょう！

AI 搭載のツールでExcel の機能をさらに強化しましょう。今すぐダウンロードして、これまでにない効率を体験してください！

最高の 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％も向上させ、毎日数百回ものマウスクリックを削減します！