VBA 特定範囲内のデータ個数集計法添付のような特定範囲にてデータが入力されている個数を集計し、黄色塗りつぶし部分の結果を得たい場合のコードをご教示お願いいたします。

例示です。

◆標準モジュールに下記を追加します。

「表カウント」は適宜に変更してくださいm(__)m



Public Function 表カウント(ByVal TargetRange As String) As Long

Dim rg As Range

Application.Volatile

表カウント = 0

For Each rg In Range(TargetRange)

If rg.Value \u0026lt;\u0026gt; \u0026quot;\u0026quot; Then 表カウント = 表カウント + 1

Next rg

Set rg = Nothing

End Function



◆C8セル

=表カウント(\u0026quot;C1:H5\u0026quot;)

◆C9セル

=表カウント(\u0026quot;K1:P5\u0026quot;)