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

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

试试这样：

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