ある範囲のセルに特定の文字列が何個存在するかを数えるには?

Question 1.1 Previous Next
組み込み関数のCOUNTIFを改造したいのです。改造してある範囲のセル中に特定の文字列が、何個存在するかを数えるユーザー定義関数を作成したいのです。
COUNTIFのソースを見る事はできないのでしょうか?
Answer   Copyright (C) 2002 永井善王
COUNTIF関数のソース」が見れるかどうかは、MicroSoft社が公開してるかどうかだと思いますが、私はよく知りません。
「ある範囲のセル中に特定の文字列が何個存在するかを数える」ということですので、せっかくご質問くださって何のお役にも立てずじま いでは申し訳けないので、VBAマクロで組んでみました。参考になると良いのですが。
ただ、前提条件として下記のとおりの解釈で進めましたので、ここが違っていると使えないかも知れませんが、ヒントくらいにはなると いいな、と思っています。

「ある範囲」 : ある1列のすべてのセルと解釈。
1つのセルの最大文字数 : エクセルの許容文字数。
カウント方法 : 1セルに特定文字列が見つかれば1とカウントして次のセルへ移る。
1回の処理で調査するデータ件数 : エクセルの許容数(Excel95では16384)。

マクロの詳細は「
文字列の存在を調査」を見てください。

 

Excel VBA Macro