七転八起SEの備忘録

条件に一致したセル数を数える場合はCountIfを利用する


Sheet2のC2セルから最終行までのデータ数をカウントする（※対象データは「test」）

Sub MatchCellsCount()

　Dim maxRow As Integer
　Dim dateCount As Integer

　maxRow = Sheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Row
　dataCount = WorksheetFunction.CountIf(Sheets("Sheet2").Range("C2", "C" & maxRow), "test")

　MsgBox "testは" & dataCount & "件です"

End Sub