エクセルで文字数をカウントする完全ガイド｜Len関数からVba自動化まで2026年最新手順の概要と注目ポイントをわかりやすく整理しました。

ここからは、単なる「確認」を超えて「自動化・警告・処理」の領域に踏み込む。エクセルで文字数オーバーを自動的に視覚化する最もシンプルな手段が条件付き書式だ。

条件付き書式で文字数オーバーを自動警告

たとえばA列の各セルが50文字を超えた場合に赤色ハイライトを付けたいとする。手順は以下の通りだ。

1. A1:A100を選択する
2. 「ホーム」タブ→「条件付き書式」→「新しいルール」を選択
3. 「数式を使用して、書式設定するセルを決定」を選ぶ
4. 数式欄に =LEN(A1)>50 と入力
5. 「書式」ボタンから「塗りつぶし」で赤色を設定してOK

これだけで、文字数が50を超えたセルが自動的に赤くなる。データ入力の現場では目視チェックのヒューマンエラーを大幅に減らせる実践的な仕組みだ。なお、全角文字のみ制限したい場合は =(LEN(A1)-LENB(A1)+LEN(A1))/2 などで全角文字数を算出し、条件値に使うという応用もある。

VBAで文字数カウントを完全自動化する

数百・数千セルを処理する場合、VBA（Visual Basic for Applications）による自動化が現実的な選択肢になる。以下は、選択されたセル範囲の文字数を隣接セルに一括出力するシンプルなVBAコードだ。

Sub CountCharacters() Dim targetCell As Range Dim targetRange As Range ' 対象範囲を選択（A列の使用済みセルを想定） Set targetRange = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) For Each targetCell In targetRange ' 隣のB列に文字数を出力 targetCell.Offset(0, 1).Value = Len(targetCell.Value) Next targetCell MsgBox "文字数カウントが完了しました。", vbInformation End Sub

VBA内でも Len() 関数（VBA自体の関数）でExcelのLEN関数相当の処理ができる。バイト数を取得したい場合はVBAの LenB() 関数を使うが、ただしExcelのLENB関数と動作が微妙に異なる点に注意が必要だ。VBAでの文字バイト数は環境依存（システムのコードページ設定）が影響するため、厳密なバイト管理が必要な場合は別途確認を行うことを推奨したい。

文字数カウント関数一覧と用途の早見表

関数・手法主な用途全角/半角の扱いおすすめシーンLEN関数文字数カウントの基本区別なし（全て1文字）SNS文字数制限チェック、記事文字数管理LENB関数バイト数カウント半角1B・全角2BDB投入データ管理、システム連携LEN+SUBSTITUTE特定文字除外後の文字数取得LENに準じるスペース除去、特定キーワード出現回数計測SUMPRODUCT+LEN複数セルの合計文字数LENに準じる文書全体の総文字数集計条件付き書式+LEN文字数オーバーの自動視覚化LENに準じる入力検証・品質管理COUNTIF（ワイルドカード）特定文字を含むセル件数区別なしキーワード含有セルの集計VBA Len()/LenB()大量データの自動一括処理環境依存（注意要）マクロによる業務自動化