EXCELVBAの Countifについて

質問

A列のA2から値が入力されている最終セルまでを一気に範囲選択して、データの個数を数えたいのですが、
上手くいきません。
ご指導をよろしくお願いします。

Range("D1") = WorksheetFunction.countif(Sheets("1").Range(Cells(2, 1), Cells(2, 1).End(xlUp)), "001")

回答No.2

keithin · ベストアンサー

方法１：
Range("D1") = WorksheetFunction.countif(Sheets("1").Range(Sheets("1").Cells(2, 1), Sheets("1").Cells(rows.count, 1).End(xlUp)), "001")

方法２：
range("D1") = application.countif(worksheets("1").range("A:A"), "001")

回答No.1

kybo

「001」という文字列の数を数えたいなら、

With Sheets("1")
Range("D1") = WorksheetFunction.CountIf(.Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)), "001")
End With

「001」と単に表示形式等で表示されているだけなら、

"001"

とせずに
単純に

1

としてください