エクセル データのカウント

質問

C列からG列の5行目以降に数値データが入っています。
ただ、全てのセルに入力し足るのではなくところどころに空白セルがあります。
それぞれの列についてデータの入力してあるセルの数を数えてそれを各列の2行目に表示したいのですがどうしたらいいでしょうか？

回答No.3

KenKen_SP · ベストアンサー

＞できればworkseet change に書けるマクロ形式でお願いします。

マクロでやる意図がよくわかりません。マクロでやるにしてもワークシート関数を利用するのが一番高速なので、結局COUNTを使います。

＞"=COUNT(C5:C65536)"という形でやってもいいのですが

こちらをお勧めしますが、一応ご希望のかたちのものを挙げます。

Private Sub Worksheet_Change(ByVal Target As Range)

　　On Error Resume Next
　　With Target
　　　　If .Row >= 5 And .Column >= 3 And .Column <= 7 Then
　　　　　　Cells(2, .Column).Value = Application.WorksheetFunction _
　　　　　　.Count(Range(Cells(5, .Column), Cells(65536, .Column)))
　　　　End If
　　End With

End Sub

回答No.2

hi-man

=COUNT(C:C)ではいけませんか

回答No.1

LucyDiamond

ワークシート関数の"COUNT"を使われてはいかがでしょうか？
例えば、C2のセルには"=COUNT(C5:C100)"のように入力します。"C100"の部分は適当に変えてください。
ちなみに"COUNT"は指定した範囲に含まれる数値データの個数をカウントする関数です。

補足

LucyDiamondさんご回答ありがとうございます。
質問で書き忘れていたのですがデータは頻繁に追加
していくので何行目までというのが決まってません。
"=COUNT(C5:C65536)"という形でやってもいいのですが
できればworkseet change に書けるマクロ形式でお願いします。