VBAは、テキストが

Question

を表示され、私は何回「s」はD1からのDJのように見えますが、私は、被験者が

のようなものです

nS = Application.WorksheetFunction.CountIf(Worksheets(i).Range(Cells(1, 4) 

上のエラーを取得しておくカウントする数式を使用しようとした回数を数えます

Public Sub check() 
       Dim nS As Integer 
       Dim j As Integer 
       Dim Row_Count As Integer 
       Dim i As Integer 
       j = Row_Count + 53 
       nS = Application.WorksheetFunction.CountIf(Worksheets(i).Range(Cells(1, 4), Cells(j, 4)), "s") 
       MsgBox "nS=" & nS 
       MsgBox "D" & j 
End Sub 

そして、最初のMsgBoxはナノ秒を示す保ち= 0

Answer 1

Worksheetsコレクションは1から始まりますが、あなたのケースでiは0

です