Note: The other languages of the website are Google-translated. Back to English

Excelのセルまたは範囲セルの単語数を数える方法は?

MS Wordの単語数は簡単に数えることができますが、Excelにはワークシートの単語数を数えるためのツールが組み込まれていません。 ただし、次の方法でExcelの単語数を数えることができます。

数式で単語数を数える
ユーザー定義関数を使用して、単一セル内の単語数をカウントします
VBAコードで指定された範囲の単語数を数える
Kutools for Excelで単語数を簡単に数える(数回のクリック)


数式で単語数を数える

単一セルと範囲セルの単語を数えるためのXNUMXつの数式を次に示します。

単一のセル内の単語を数える

この式を入力してください =IF(LEN(TRIM(A2))=0,0,LEN(TRIM(A2))-LEN(SUBSTITUTE(A2," ",""))+1)数式バー、を押して 入力します キー。

注意:数式では、A2は内部の単語数をカウントするセルです。

以下のスクリーンショットのように結果を確認できます。

配列数式を使用してセル範囲内の単語を数える

セルの範囲内の単語をカウントする場合は、数式を入力してください =SUM(IF(LEN(TRIM(A2:A3))=0,0,LEN(TRIM(A2:A3))-LEN(SUBSTITUTE(A2:A3," ",""))+1)) 数式バーに入力し、を押します シフト + Ctrlキー + 入力します 同時にキーを押して結果を取得します。 スクリーンショットを参照してください:

注意:A2:A3は、カウントする単語の範囲です。

Excelのセルまたはセルの範囲内の合計単語を簡単にカウントします。

世界 総単語数を数える の有用性 Kutools for Excel 以下のデモに示すように、Excelのセルまたはセルの範囲の合計単語をすばやくカウントするのに役立ちます。
ダウンロードして今すぐ試してみてください! (30-日フリートレイル)


ユーザー定義関数で単語数を数える

また、ユーザー定義関数を使用してセル内の単語を数えることができます。次のようにしてください。

1。 押す 他の + F11 一緒に鍵を開いて アプリケーション用のMicrosoftVisual Basic 窓。

2.ウィンドウで、をクリックします インセット > モジュール次に、以下のVBAコードをコピーしてモジュールに貼り付けます。 スクリーンショットを参照してください:

VBAコード:セル内の単語数をカウントします。

Function intWordCount(rng As Range) As Integer
'Update by Extendoffice 2018/3/7
    intWordCount = UBound(Split(Application.WorksheetFunction.Trim(rng.Value), " "), 1) + 1
End Function

2。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic winodw。 ワークシートで空白のセルを選択し、数式「=intwordcount(A2)」を数式バーに入力し、を押します。 入力します 結果を得るための鍵。 スクリーンショットを参照してください:

注意:数式では、A2は内部の単語数をカウントするセルです。

特定の範囲の単語数を数えたい場合は、以下の方法を適用してください。


VBAコードで指定された範囲の単語数を数える

次のVBAコードは、指定した範囲の単語数をすばやく数えるのに役立ちます。

1。 押す 他の + F11 一緒に鍵を開いて アプリケーション用のMicrosoftVisual Basic 窓。

2.ウィンドウで、をクリックします インセット > モジュール次に、以下のVBAコードをコピーしてモジュールに貼り付けます。 スクリーンショットを参照してください:

VBAコード:選択した範囲内の単語数をカウントします。

Sub CountWords()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xRgVal As String
    Dim xRgNum As Long
    Dim xNum As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then
        MsgBox "Words In Selection Is: 0", vbInformation, "Kutools For Excel"
        Exit Sub
    End If
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        xRgVal = Application.WorksheetFunction.Trim(xRgVal)
        If xRgEach.Value <> "" Then
            xNum = Len(xRgVal) - Len(Replace(xRgVal, " ", "")) + 1
            xRgNum = xRgNum + xNum
        End If
    Next xRgEach
    MsgBox "Words In Selection Is: " & Format(xRgNum, "#,##0"), vbOKOnly, "Kutools For Excel"
    Application.ScreenUpdating = True
End Sub

3。 プレス F5 コードを実行するためのキー。 ポップアップで Kutools for Excel ダイアログボックスで、単語数をカウントする範囲を選択し、[ OK ボタン。 スクリーンショットを参照してください:

その後、別の Kutools for Excel ダイアログボックスが表示され、選択した範囲内の単語の総数が表示されます。 スクリーンショットを参照してください:


Kutools for Excelで単語数を数える(クリックのみ)

Yあなたは試すことができます 範囲内の単語を数える 数回クリックするだけでセルまたは範囲内の単語数を簡単にカウントするKutoolsforExcelのユーティリティ。

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

1.結果を返すセルを選択し、をクリックします クツール > フォーミュラヘルパー > フォーミュラヘルパー.

2。 の中に 数式ヘルパー ダイアログボックスで、次のように構成してください。

  • メディア 式を選択してください ボックス、選択 総単語数を数える;
    ヒント:確認できます フィルタ ボックスにキーワードを入力して、必要に応じて数式をすばやくフィルタリングします。
  • メディア レンジ ボックスで、合計単語をカウントするセルまたは範囲を指定します。
  • ストリーミングを停止する場合は上部の OK ボタン。 スクリーンショットを参照してください:

次に、指定したセルまたは範囲内の単語数を取得します。

  無料トライアルをご希望の方は(30-day) このユーティリティの クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。


Kutools forExcelで単語数を簡単に数える

  Kutools for Excel Microsoft Excel の 300 以上の強力な機能が含まれています。 制限なしで無料で試すことができます 30 日。 ダウンロード中!


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (32)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
= SUM(IF(LEN(TRIM(A1:C7))= 0,0、LEN(TRIM(A1:C7))-LEN(SUBSTITUTE(A1:C7、 ""、 ""))+ 1))範囲内のセルのXNUMXつにXNUMXつの単語がある場合に機能します。
このコメントは、サイトのモデレーターによって最小化されました
正しく動作しません。 任意の解決策..
このコメントは、サイトのモデレーターによって最小化されました
範囲に単一の単語セルが含まれている場合でも、数式はうまく機能します。私はMS2016を使用しています。
このコメントは、サイトのモデレーターによって最小化されました
これはひどいです別の式が必要です、そしてあなたはあなたの投稿を更新するべきです
このコメントは、サイトのモデレーターによって最小化されました
親愛なるアペラ、
投稿が更新されました。 コメントありがとうございます!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、以下の問題の解決策を知りたいです。 「最後の単語を削除して12文字に制限したい単語の文字列があります。たとえば、「こんにちは、元気ですか」は「こんにちは、元気です」です。基本的に、この背後にある考え方は、最大で12文字で、12以上の単語を削除して、最終的な文字列が12未満になるようにします。「Hellohow do you do sir」は「Hellohowdo」になり、「That elephantislarge」は「That」になります。 「あの象」ではなく、解決策を教えてください、ありがとう
このコメントは、サイトのモデレーターによって最小化されました
親愛なるヴィナイ、
データ検証機能を使用してコンテンツを入力する前に、セル内の文字の長さを制限できます。 以下のスクリーンショットがお役に立てば幸いです。
このコメントは、サイトのモデレーターによって最小化されました
単語数の式例PPPPPPPPP合計P式AAAAAAAA合計式PLESESAND式このメールID
このコメントは、サイトのモデレーターによって最小化されました
親愛なるサティシュヤダフ、
LENの数式を試してください:= LEN(A1)を使用して、特定のセルの文字の総数をカウントします。
コメントありがとうございます!
このコメントは、サイトのモデレーターによって最小化されました
Ex異なる日付1 2 3 4 5 6 7 8 9 SRT SRT SRT SRT SRT SRT SRT SRT SRT SRTSRTSRTでの合計数のカウント方法
このコメントは、サイトのモデレーターによって最小化されました
親愛なるバルデフ、
正確に何をしようとしているのかを示すスプレッドシートのスクリーンショットを提供していただけますか?
コメントありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
単語や文字の数ではなく、段落の平均単語長を数えるための式は何でしょうか?
このコメントは、サイトのモデレーターによって最小化されました
親愛なるベル、
申し訳ありませんが、私はあなたのポイントを取得できませんでした。
このコメントは、サイトのモデレーターによって最小化されました
「ユーザー定義関数」は、単語が正確にXNUMXスペース離れている場合にのみ機能します。 複数のスペースがある場合、この関数は余分なスペースごとにカウントに別の単語を追加します。 私はそれを試してみました! あなたもすべき!
このコメントは、サイトのモデレーターによって最小化されました
親愛なるデイブ、
「ユーザー定義関数」のコードは、問題が解決された状態で更新されます。 コメントありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
ありがとうございました! 最初の式は私の目的に最適です。
このコメントは、サイトのモデレーターによって最小化されました
どういたしまして、マット。 お役に立ててうれしいです。
このコメントは、サイトのモデレーターによって最小化されました
セル+1.2+ 0.25 + 2 + 0.8 + 06では、これは合計ではないセル数=5ですExcelセルでの計算方法を教えてください
このコメントは、サイトのモデレーターによって最小化されました
= IF(LEN(TRIM(A1))= 0,0、LEN(TRIM(A1))-LEN(SUBSTITUTE(A1、 "+"、 ""))+ 1)、基本的に ""(スペース)を変更します)区切り文字(+)に移動し、+ 1.2 + 0.25 + 2 + 0.8+06の列がテキスト形式であることを確認します
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ありがとうございます。最初の数式は私が必要としているものですが、各行の同じセルに自動的に適用する方法はありますか:D1、E1、F1など?
このコメントは、サイトのモデレーターによって最小化されました
これは素晴らしいです。 ありがとう-私が必要なものだけ!!

PSのみ....私はExcelを使用することにかなり手がかりがあると思っていましたが、今では私が一部の人と比べて単なる初心者であることに気づきました。 :-D
このコメントは、サイトのモデレーターによって最小化されました
「入力した数式にエラーが含まれています。数式の注釈に従って引数を入力したことを確認してください!」と表示されます。


すべてのセルにはXNUMXつの単語しか含まれていません。 私も再確認しました、すべてが「テキスト」です。
この問題の解決法はありますか?
このコメントは、サイトのモデレーターによって最小化されました
これはまさに私が抱えている問題です...:(解決策を見つけましたか?
このコメントは、サイトのモデレーターによって最小化されました
このような段落から単語を切り取る必要があります

「デバイスは保証対象外であり、修理は利用できないため、音声プロンプトを提供するデバイスが必要な場合は、このユニットをsvcから取り外して交換することをお勧めします。営業担当者は、お客様のサイトにアクセスして、このことを通知します。 。
待っている間にケースを閉じる」
単語を指定したいのですが、その代わりに、「svc」出力を「from svc and」と指定した場合のように、前後の単語を指定した単語と一緒に表示したいと思います。
助けてください
このコメントは、サイトのモデレーターによって最小化されました
この式が一意の単語のみをカウントする可能性があります。 私の質問は、単語が範囲内に2回存在する場合、重複をカウントせずにその単語をXNUMX回だけカウントするかどうかです。
このコメントは、サイトのモデレーターによって最小化されました
この関数が一意の単語のみをカウントする可能性があります。 たとえば、単語がXNUMX回の範囲に存在する場合、XNUMXつだけがカウントされ、重複はカウントされません。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
範囲内の一意の単語のみをカウントするには、次の式を適用してください(A1:A9をニーズに基づいた範囲に置き換えてください):= SUMPRODUCT(1 / COUNTIF(A1:A9、A1:A9))。 コメントありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
セルをXNUMX色にした場合にカウントされる関数はありますか? (同じ色で塗りつぶされているかどうかを知るために、カラーボックスの数を数える式はありますか)
このコメントは、サイトのモデレーターによって最小化されました
セルが空の場合、は誤って1のカウントを表示しています。これを修正するために、数式を次のように変更しました。


= IF(LEN(TRIM(A1))> 0、LEN(TRIM(A1))-LEN(SUBSTITUTE(TRIM(A1)、 "、"、 ""))+ 1、0)
このコメントは、サイトのモデレーターによって最小化されました
あなたは最高です。 式は私のために楽に働いた。 称賛!!!
このコメントは、サイトのモデレーターによって最小化されました
OMGこの良い情報をありがとう
このコメントは、サイトのモデレーターによって最小化されました
この公式を共有してくれてありがとう。 貼り付けて、シートに合うようにセル参照を変更しました。 どうもありがとう。
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護