VBAでCountifを利用してみる

Sub カウント()

　' 変数の宣言

    Dim 集計 As Integer

   ' 商品名が「インテリア雑貨」であるセルをカウント

    集計 = WorksheetFunction.CountIf(Range("H2:H10"), "インテリア雑貨")

　' 集計結果をセルのR2に表示

    Range("R2").Value =  集計

End Sub