ただし、今回は応用編なので、基礎編については下記の記事をご覧ください。

【マクロVBA】対象のセル・変数に指定した文字・数値が含まれているかInStrで確認する ► 独学エクセル塾 (dokugakuexcel.com)

対象の文字が何文字目に含まれているか確認できる
InStr関数ですが、応用することで何個・何文字含まれているか
求めることができます。

是非参考にしてみてください。
それでは見ていきましょう。

⬛︎こんなことができるようになる！

対象の文字が何文字あるか個数を確認することができる。

⬛︎忙しい人向けのコピペ用ソースコード

Sub 対象の文字が何個含まれているか調査()
Dim Counter, N
　Counter = 0
　N = 1
Do
　N = InStr(N + Counter, 検索したいセル・変数, "確認したい文字")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

■構文の説明

まず、使用する関数についてですが「InStr関数」になります。
関数仕様としては下記の通りです。

InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

「[ ]」は省略可能となっています。

[検索の種類]ではバイナリモードかテキストモードを
選択することができます。

バイナリモードの場合はvbBinaryCompare
テキストモードの場合はvbTextCompareを入力します。

ただし、省略した場合はバイナリモードになるので
バイナリモードの場合は未入力でかまいません。

各モードの検索方法は下記の通りです。

⬛︎対象の文字の数を求める

・例①

では、実際にInStr関数を使用して対象の文字の個数を求めたいと思います。
下記の見本をご覧ください。

今回はセル番地「B3」の文字列に「A」が何個含まれているか求めたいと思います。
では見本のソースコードをご覧ください。

Sub 対象の文字が何個含まれているか調査()
 Dim Counter, N
 Counter = 0
 N = 1
Do
　N = InStr(N + Counter, Range("B3"), "A")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

では、仕組みを紹介したいと思います。

まず、対象をセル番地B3にしています。
そこから今回は「A」が何文字含まれているか確認したいと思います。

検索の開始位置を変数「N」としており
初めは1文字目から検索を行います。

１週目の結果として「A」は１文字目にあるので
変数「N」に「1」が格納されます。

そして、文字のカウントの変数「Counter」を+1します。

そして、この処理をループ処理することにより
文字を繰り返し検索するメカニズムになっています。

続いて2週目では、
開始位置を「N+Counter」していることにより、先程の検索に引っかかった「１文字目のA」は除外するようになります。

その後は検索に文字が引っかかるたびに「Counter」を+1することで

対象の文字が何文字あるかカウントします。

そして、検索に引っかからなくなった場合,
InStr関数の結果は「0」になるわけですから、「If N = 0 Then Exit Do」でループを抜け出します。

以上が説明になります。

では、実際に走らせてみたいと思います。

実行した結果はこちらです。

「ABCADEAF」には「A」が3文字含まれているので
「対象の文字は３個あります」というメッセージボックスが結果として表示されました。

・例②

さらにB3を「BCDEFCD」にして「CD」を検索しましょう。

Sub 対象の文字が何個含まれているか調査()
 Dim Counter, N
 Counter = 0
 N = 1
Do
　N = InStr(N + Counter, Range("B3"), "CD")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

結果はこのようになりました。

「BCDEFCD」には「CD」という文字が２つあるので

「2」を出力しています。

文字数が増えてもうまく機能していますね。

⬛︎よくあるエラーと対処法

・文字が大文字・小文字で異なる

検索の対象または対象となる文字が
大文字と小文字で異なる場合はうまく検索できません。

先ほどの見本で小文字の「ｄ」を検索してみましょう。

Sub 対象の文字が何個含まれているか調査()
 Dim Counter, N
 Counter = 0
 N = 1
Do
　N = InStr(N + Counter, Range("B3"), "d")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

結果はこのようになります。

検索文字が小文字のために「D」を検出できていません。

では、再度構文を見てみましょう。
InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

冒頭で検索の種類は「バイナリモード」と「テキストモード」があると説明しました。

省略していた場合は「バイナリモード」となり、大文字・小文字を区別します。

つまり、大文字と小文字を区別しないテキストモードに変更すればいいのです。

なので検索の方法に「vbTextCompare」を追加すれば大文字と小文字を区別しなくなります。

N = InStr(N + Counter, Range("B3"), "d", vbTextCompare)

実行した結果はこちらです。

小文字の「ｄ」で検索したにもかかわらず大文字の「Ｄ」をカウントしてくれました。

・文字が全角・半角で異なる

こちらも先程のエラーと同様です。
検索方法をテキストモードに変えることにより、全角半角
どちらでも検索できるようになります。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください☟

InStr関数（Visual Basic for Applications） | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
InStr関数を応用することで対象の文字が何文字あるか検出することができます。

是非参考にしてみてください。

それでは次回の記事でお会いしましょう。

使用方法は関数と同じです。
関数は下記リンクを参照してください。

カウントはよく使用する機能ですよね。
ぜひ身に着けて活用してみてください。

それでは見ていきましょう。

■COUNT関数で指定範囲の平均を求める

・プログラムの仕組み

Application.WorksheetFunction.Count(カウントしたい範囲)

・使用方法

では下図の例をもとに進めていきましょう

出勤状態をＣ列に入力しているシートですね。
出勤すると出勤時間を打ち込んでいます。
今回はその出勤日数を「F3」に入力してみましょう。

ではプログラムを組んでみましょう。
カウントを求めたい範囲は「C3からC12」ですので下記のようになります。

Sub カウント()

Cells(3, 6) = Application.WorksheetFunction.Count(Range(“C3:C12“))

End Sub

それでは実行した結果を見てみましょう。

カウントすることができました。数値が「6個」あるので「6」が出力されます。
ちなみにCellsで表示するとこのようになります。

Cells(3, 6) = Application.WorksheetFunction.Count(Range(Cells(3, 3), Cells(12, 3)))

さらにRange変数を使用してもカウントすることは可能です。

Sub カウント()

Dim A As Range

Set A = Range(“C3:C12“)

Cells(3, 6) = Application.WorksheetFunction.Count(A)

End Sub

■CountIF関数で条件に当てはまるカウントを求める

・プログラムの仕組み

Application.WorksheetFunction.CountIf(条件の範囲,絞り込む条件)

・使用方法

では下図の例をもとに進めていきましょう

先ほどのシートの勤務時間に「10」が加わりました。
今回は「10時間勤務の日数」をカウントしてみましょう。

条件の範囲は「Ｃ3からＣ12」になります。
絞り込む条件は「10」ですね。

プログラムを組むとこのようになります。

Sub 条件に当てはまるカウント()

Cells(3, 6) = Application.WorksheetFunction.CountIf(Range(“C3:C12“), “10“)

End Sub

それでは実行してみましょう。

機能していますね。
こちらもCellsで表してみましょう。

Cells(3, 6) = Application.WorksheetFunction.CountIf(Range(Cells(3, 3), Cells(12, 3)), “10“)

Range変数を使用するとこのようになります。

Sub 条件に当てはまるカウント()

Dim A As Range

Set A = Range(“C3:C12“)

Cells(3, 6) = Application.WorksheetFunction.CountIf(A, “10“)

End Sub

■CountIFS関数で条件に当てはまるカウントを求める

・プログラムの仕組み

Application.WorksheetFunction.CountIfs(絞り込む範囲1,絞り込む条件1,絞り込む範囲2,絞り込む条件2….)

・使用方法

では下図の例をもとに進めていきましょう

今回はさらに「勤務内容」も追加しました。
では実際にプログラムを組んでみましょう。

今回は条件を「勤務時間：8」「勤務内容：通常」としてみましょう。

絞り込む条件の範囲は１つ目は勤務時間なので「C3からC12」です。
絞り込む条件の１つ目は「8」ですね。
絞り込む条件の範囲は2つ目は勤務内容なので「D3からD12」です。
絞り込む条件の2つ目は「通常」ですね。

それでは作成したプログラムを見てみましょう。

Sub 複数条件に当てはまるカウント()

Cells(9, 7) = Application.WorksheetFunction.CountIfs(Range(“C3:C12“), “8“, Range(“D3:D12“), “通常“)

End Sub

実行するとこのようになります。

「勤務時間が8」「勤務内容が通常」に当てはまるデータの数、「3」が出力されてますね。

ではCellsでもプログラムを見てみましょう。

Cells(9, 7) = Application.WorksheetFunction.CountIfs(Range(Cells(3, 3), Cells(12, 3)), “8“, Range(Cells(3, 4), Cells(12, 4)), “通常“)

長くなりますが、変数を使う場合はこちらを活用してみましょう。

Range変数を使用するとこのようになります。

Sub 複数条件に当てはまるカウント()

Dim A As Range, B As Range

Set A = Range(“C3:C12“)
Set B = Range(“D3:D12“)

Cells(9, 7) = Application.WorksheetFunction.CountIfs(A, “8“, B, “通常“)

End Sub

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

WorksheetFunction オブジェクト (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。

マクロVBAでもカウント機能を使用することができました。

ぜひ活用してみてください。

次回はVBAでMAX/MIN関数を使用する方法についてまとめています。記事はこちらから☟

【マクロVBA知識 21】データの最大値・最小値をMAX.MINを使用して求める ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

今回は空白のみなので文字列をカウントしたいときや空白以外をカウントしたいときなどは

下の参照を参考にしてみてください。☟

【COUNTA関数】エクセルで空白以外の全てのデータの個数を求める ► 独学エクセル塾 (dokugakuexcel.com)

【COUNTIF関数】エクセルで条件に合ったデータの個数をカウントする。 ► 独学エクセル塾 (dokugakuexcel.com)

それでは見ていきましょう。

■関数の仕組み

■ データの個数を求める

例として、仕事に行った日を数えてみましょう。

下図の見本を元に進めていきます。出勤した日に勤務時間の数値を入力する仕組みとします。

例なので今月を10日までとしています。
出勤確認担当者は上図のような出勤表を作成したとします。

出勤した場合、出勤した日に労働時間を打ち込むようになってます。

そこで出勤日数（赤枠）を求めるには勤務時間のところに何個データがあればいいか求めることで

出勤日数を求めることができます。

つまり今回の内容であるデータが何個あるか数えれば解決することができます。

そこで使用する関数が「COUNT関数」になります。
「＝」の後にCOUNTと打ちます。するとCOUNT関数が出てくるのでダブルクリックします。

そこから、データを数えたい範囲を選択します。

範囲は１日から10日の勤務時間の項目なので「Ｃ4からＣ13」になりますね。

なので関数の式に直すとこのようになります。

=COUNT(C4:C13)

では実際に打ち込んでみましょう。

この状態でEnterキーを押すと…

個数がカウントされました。現在は２日に8時間しか働いてないので、出勤日数「1」が算出されます。

では勤務時間を追記してみましょう。

すると追記に合わせて自動的に出勤日数をカウントしてくれます。

しかしカウントしてくれるのは数値のほかに日付データや時刻データのみの

カウントになるのでご注意下さい。

■よくあるエラーと対処法

ではCOUNT関数を使用して発生するエラーとそれに対する対処法を説明します。

・数値が文字列になっている

下記の式をご覧ください

勤務時間を範囲としてカウントする計算式になっています。

結果は数値が3つあるため「3」になるはずです。しかし結果は下図のようになりました。

データがすべてカウントされておらず、「2」になっています。

では６日の「8」に注目してください。

左上に緑の印がついています。

本来数値は「標準」や「数値」となっています。

しかし左上に緑の印がついてある「8」はというと…

「文字列」になっています。

つまり「8」は数値として認識されておらず「文字」として認識しているため

無視されている計算になっています。

さらに「エラー」でも同様に数値としてみなされないため

カウント対象にならないのでご注意下さい。

対処法：表示を標準にもどし、再度入力すれば解消されます。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

COUNT 関数 – Office サポート (microsoft.com)

■練習問題

では練習問題でCOUNT関数を復習してみてください。

下図の見本を作成しました。

Ｂ5からＢ20まで空白と数値が入れ混ざっている状態です。

では数値データをCOUNT関数を使用して求めてみましょう。

答え：=COUNT(B5:B20)

さらに数値データの個数は「10」と出力されます。

■まとめ

いかがだったでしょうか。

データの数が多ければ役立つ関数ですね。

データがどれくらいあるかすぐにわかるようになります。

COUNT関係の関数はほかにも数個あり、

COUNTIF、COUNTIFS、COUNTA関数などあります。

それぞれの関数を身につけるとその場に合った関数が使用できるように

なると思いますので、ぜひ身に付けてみてください。

では次回の記事でお会いしましょう！

このサイトでは独学でエクセルの技術を磨くことができます。基本操作やVBA、関数を随時更新中です。

関数の使い方や効果を、実際のエクセルを使用してわかりやすくしています。

いつかはエクセルの教科書のようなサイトを目指してます。
コメントで知りたいことや悩みなど記入していただければお答えしていきます。
ぜひ、ほかの記事もご覧ください。皆様の参考になれれば幸いです！