Excel 在工作簿上运行宏，让它计算工作簿中的所有行，即使以后添加了工作表

我在每天更新的excel文件上运行宏

此文件当前设置为X页数，但始终可以添加1或2张图纸

是否有代码可以对工作簿中的每一行进行计数，并在以后添加工作表的工作簿中对这些行进行计数

因此宏将计算工作簿1中的所有行；第1、2、3、4页

同一宏应该能够计算工作簿1中的所有行；第1、2、3、4页，随后添加第5页

目前，我仅通过拉动工作表名称来计算其上每个工作表中的行数。但我不知道如何让它计算原始excel文件中没有的其他工作表行

Dim sw As Worksheet
 Dim accum As Long
 Dim rowcounter As Long
 accum = 0
    For Each sw In ActiveWorkbook.Worksheets
    rowcounter = Cells(Rows.Count, "A").End(xlUp).Row
    accum = rowcounter + accum
    Next sw

Range("B35").Select
ActiveCell.FormulaR1C1 = _
    "= " & accum & ""

---

上面是我正在运行的当前代码。

您使用了循环每个工作表旁边的每个…，但您没有在单元格上放置引用。您基本上是在活动工作表上重复计数

Dim sw As Worksheet
Dim accum As Long
Dim rowcounter As Long
Dim strMsgbox  As String
accum = 0
For Each sw In ActiveWorkbook.Worksheets
    rowcounter = sw.Cells(Rows.Count, "A").End(xlUp).Row
    accum = rowcounter + accum
    strMsgbox = strMsgbox & vbNewLine & sw.Name & " rows: " & rowcounter
Next sw

'Range("B35").Value = accum
MsgBox strMsgbox & vbNewLine & "Total Rows: " & accum

---

显示您的代码和您尝试过的内容。要回答当前的问题，是的，有代码可以做到这一点，对于大多数问题，答案是肯定的，这是可能的。请确保您的帖子中有一个客观的问题，通常与您的代码和遇到的特定问题/错误有关。hi.for start可用于Active工作簿中的每个ws。工作表可循环书中的所有工作表