Vba 计算工作簿中每个工作表的行数

我需要一些关于以下代码的帮助。我对此很幼稚，需要一些帮助

问题:-

以下代码仅适用于表格中指定的工作表

要求。 我希望代码分别计算每个工作表的行数，并在下一个单元格中返回输出

代码：-

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

试着这样做：

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

---

谷歌

搜索每个工作表vba

。谢谢，我需要帮助：-ActiveCell.FormulaR1C1=“=COUNTA（'NY MFG'！R1C1:R187C1）”使其动态化，而不是只处理一个工作表only@A.Gaurav如果成功了，那么你应该接受答案。