文字が入力されたセル数の集計

質問

件数の集計に困っています。
A:1からA:10のセルに人名を入力してある。
A:11のセルにそのA:1～A:10に入力された件数を集計したい。
セルにスペースを除いて、何らかの文字が入力されると１としてカウント、その合計数を出すためのマクロを教えてください。

回答No.2

onntao · ベストアンサー

関数ではだめなのですか？

=COUNTA(A1:A10)

お礼

COUNTAだとスペースもカウントされるので、不都合です。
実際は日付が入力されるので、=COUNTIF(A1:A10,">0")
を使います。
ありがとうございます

回答No.1

mshr1962

=COUNTA(A1:A10)
で入力のあるセルがカウントできます。

>セルにスペースを除いて、何らかの文字が入力されると１としてカウント
これは文字数を知りたいのですか？
=LEN(SUBSTITUTE(SUBSTITUTE(A1," ",""),"　",""))
でスペースを除いた文字数が分かります。
SUBSTITUTE関数で全角スペースと半角スペースを除き
LEN関数で文字数を数えています。

お礼

COUNTAだとスペースもカウントされるので、不都合です。
実際は日付が入力されるので、=COUNTIF(A1:A10,">0")
を使います。
ありがとうございます