条件付で空白以外のセルをカウント

下記のようなエクセルシートがあったとします。
メーカーシートの製品登録数のセルにメーカーIDと一致する項目を製品シートのメーカーIDの列から検索し一致した場合カテゴリ1、2、3のセルから空白以外のセルをカウントするにはどうすればよいでしょうか？

--------------------------------------------
製品シート
メーカーID｜製品カテゴリ1｜製品カテゴリ2｜製品カテゴリ3

--------------------------------------------
メーカーシート
メーカーID｜メーカー名｜製品登録数

No.3 ベストアンサー 回答者： imogasi 回答日時： 2002/12/25 16:37

VBAでの回答が早く出来たので、

（１）下記はＳｈｅｅｔ４に「製品シート」、Ｓｈｅｅｔ５に「メーカシート」を置いて少数例でテストしました。
（２）100は製品シートの最下行＋アルファ行数に変えてください。
（３）メーカーＩＤは第1列にあるものとしています。
（４）求める数はメーカーシートの第3列にセットしています。
（５）製品カテゴリは３までとしています。
（６）第１行からデータがある仮定になっている。
Sub test01()
Dim a As Object
d = Worksheets("sheet5").Range _,("a1").CurrentRegion.Rows.Count '最下行行数
For i = 1 To d
n = 0
Worksheets("sheet4").Range("a1:a100").Select
Set a = Selection.Find(What:=Worksheets("sheet5").Cells(i, 1), _
After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
'("a1:a100").はＡ１００までしか見てない。増
'やすこと。(2)
'(i,1)はＡ列を探していることを示す (3)
a.Activate
k = a.Row
If a = "" Then GoTo p02
n = n + kaunto(k)
km = k
p01:
Set a = Selection.FindNext(After:=ActiveCell)
a.Activate
k = a.Row
' MsgBox k & "=" & km
If km >= k Then GoTo p02
n = n + kaunto(k)
km = k
GoTo p01
p02:
Worksheets("sheet5").Cells(i, 3) = n '(4)
Next i
End Sub
'----------第Ｋ行の入力セルを数える
Function kaunto(k)
m = 0
For i = 2 To 4　'B-D列 (5)
If Worksheets("sheet4").Cells(k, i) <> "" Then
m = m + 1
End If
Next i
kaunto = m
End Function

No.2 回答者： imogasi 回答日時： 2002/12/25 12:49

＜補足要求＞

（１）要するに「メーカーシート」の「製品登録数」を自動的に出したいということですね。
（２）「製品シート」の「メーカーＩＤ」は「ユニーク」（＝同じメーカーＩＤが複数行現われないこと。）ですか？。
（３）同じく「メーカーシート」の「メーカーＩＤ」は「ユニーク」（＝同じメーカーＩＤが複数行現われ無いこと。）ですか？。
（４）両シートは「メーカーＩＤ」で「ソート」（昇・降順並び替え）されていますか。

この回答への補足

補足に対してお答えします。

1)そういうことです。
2）ユニークではありません。
3）ユニークです。
4）させておりません。ただしメーカーシートに方は
会員フラグ「1」非会員「0」がたっていて降順でソートしています。

以上、よろしくお願いします。

補足日時：2002/12/25 12:53

No.1 回答者： ayasu 回答日時： 2002/12/25 12:12

私だったら、製品シートの製品カテゴリー３の横に空白以外のセルをカウントしておいて、（＝COUNTA(製品カテゴリー１:製品カテゴリ

ー３）その後、製品登録数セルで、(=VLOOKUP(メーカーID,メーカーID:製品カテゴリー３,4,0)という関数から値を持ってきますがいかがでしょうか？

この回答への補足

どうもありがとうございます。
"COUNTA"は試してみたのですが、空白のセルがどうしてもカウントされてしまっているようです。おそらくスペースか何かをカウントしてしまっているようで、正確な数値が出せません。

"COUNT"も試してみたのですが、こんどは数値を思うようにカウントしてくれません。書式設定を"数値"にしてもうまくいきません。何かほかに問題があるのでしょうか？

補足日時：2002/12/25 13:01