2016-06-28 5 views

答えて

0

特定の単語を含む範囲のセル数を数えたいと思います。これにはユーザー定義関数を使用できます。
VBAエディタで、[挿入]メニューの[モジュール]を選択し、次のコードを追加します。

Function CountWord(searchStr As String, rng As Range) As Long 
    Dim count As Long 
    Dim arr() As String 
    count = 0 
    For Each cel In rng 
     If Not cel Is Nothing Then 
      arr = Split(cel.Value, " ") 
      For i = LBound(arr) To UBound(arr) 
       If StrComp(arr(i), searchStr, vbTextCompare) = 0 Then 
        count = count + 1 
        Exit For 
       End If 
      Next i 
     End If 
    Next 
    CountWord = count 
End Function 

enter image description here

注:機能上は、指定した単語を含むセルの数をカウントしますつまり、あなたがカウントしたい場合は指定されたワードは、かつてそれはまだ1としてカウントされますセルよりも発生した場合範囲内の単語の出現数はIfの状態でExit Forを取り除くだけです。

関連する問題