通常のCOUNTIFではワイルドーカード(*や?)が効いてしまい
正しく算出されない場合用の関数。
┌──────────────────────────────────────┐
│'===========================================================================│
│'  内部関数：純COUNTIF                                                      │
│'===========================================================================│
│Private Function 純COUNTIF(ByVal 範囲 As Range, _                           │
│                           ByVal 検索文字 As String) As Long                │
│''''検索文字 = Replace(検索文字, "~", "~~")     ' COUNTIF系では不要         │
│    検索文字 = Replace(検索文字, "*", "~*")                                 │
│    検索文字 = Replace(検索文字, "?", "~?")                                 │
│    純COUNTIF = WorksheetFunction.CountIf(範囲, 検索文字)                   │
│End Function                                                                │
│'===========================================================================│
└──────────────────────────────────────┘
要は「~」を先頭につければ無効化できるという話。