통합 문서의 각 워크 시트에 행 수가 계산되지 않습니다.

Question

아래 코드에 대한 도움이 필요합니다. 나는 이것에 순진하고 도움이 필요하다.

문제 : -

는 아래의 코드 만 formuale에 명명 된 시트의 계산된다.

요구 사항. 코드에서 각 워크 시트의 행 수를 각각 계산하고 다음 셀에 outpput을 반환해야합니다.

코드 : -

Sub cou() 

Dim w As Long 
For w = 1 To Worksheets.count - 1 
    With Worksheets(w) 
     MsgBox (w) 
     ActiveCell.FormulaR1C1 = "=COUNTA('NY MFG'!R1C1:R187C1)" 
     Range("A2").Select 
    End With 
Next w 


End Sub 

Answer 1

이처럼 시도 : 각 워크 시트 vba`를 들어

ActiveCell.FormulaR1C1 = "=COUNTA('" & Worksheets(w).Name & "'!R1C1:R187C1)"