Excel VBA Count関数

Excel VBAでワークシート関数の「COUNT」を使って個数を求める記録です。

大きな表やたくさん集計するときに使うと便利です。

< スポンサーリンク >





VBAで「COUNT」関数を使う例

B2~B4の中で個数をメッセージで表示します。

Sub test()
  MsgBox WorksheetFunction.Count(ActiveSheet.Range("B2", "B4"))
End Sub

VBAでcount関数

VBAでcount関数

 

B2~D4の中で個数をメッセージで表示します。

Sub test()
  MsgBox WorksheetFunction.Count(ActiveSheet.Range("B2", "D4"))
End Sub

VBAでcount関数

VBAでcount関数

 

B~D列のそれぞれの列の個数を9行目に入力します。

Sub test()
  Dim ws As Worksheet
  Dim i As Long

  '変数にアクティブシートをセット
  Set ws = ActiveSheet

  'A9に項目名を入力
  ws.Range("A9").Value = "個数"

  'B9~D9にそれぞれの列の個数を入力
  For i = 2 To 4
    With ws
      .Cells(9, i).Value = WorksheetFunction.Count(.Range(.Cells(2, i), .Cells(4, i)))
    End With
  Next i
End Sub

VBAでcount関数

VBAでcount関数

 

「COUNT」関数構文

WorksheetFunction.Count(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)

引数リストに含まれる数値の個数を返します。

Arg1~Arg30=必須。数値1~30個の個数を求める範囲を指定します。ただし、計算の対象となるのは数値だけです。戻り値は倍精度浮動小数点型(Double)です。

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします