针对你需要统计数据透视表表头行（第4行）与总计行（第133行）之间的行数，并将结果写入汇总工作表B23单元格的需求，这里提供两种实现方案，你可以直接整合到现有代码中：

方案一：固定行号静态计算 #

如果你的数据透视表的表头行和总计行是固定不变的（比如始终是第4行到第133行），可以直接用静态计算的方式，代码简洁高效：

' 插入到你现有代码的合适位置（比如数据透视表刷新完成后）
Dim wsSummary As Worksheet
Dim rowCount As Integer

' 定义汇总工作表对象
Set wsSummary = ThisWorkbook.Worksheets("汇总")

' 计算第4行到第133行的行数：结束行号 - 起始行号 + 1
rowCount = 133 - 4 + 1 ' 本次计算结果为130

' 将结果写入汇总表B23单元格
wsSummary.Range("B23").Value = rowCount

' 释放对象（可选，但推荐）
Set wsSummary = Nothing

方案二：动态定位透视表行（推荐用于行数变化场景） #

如果数据透视表的行数会随数据源增减而变化，表头行和总计行不是固定行号，建议用动态定位透视表区域的方法，避免行号变动导致统计错误：

' 插入到你现有代码的合适位置
Dim wsPivot As Worksheet
Dim wsSummary As Worksheet
Dim targetPT As PivotTable
Dim headerRow As Integer
Dim totalRow As Integer
Dim rowCount As Integer

' 定义工作表和透视表对象（根据你的实际表名修改）
Set wsPivot = ThisWorkbook.Worksheets("数据透视表")
Set wsSummary = ThisWorkbook.Worksheets("汇总")
Set targetPT = wsPivot.PivotTables(1) ' 假设是工作表中的第一个透视表

' 动态获取表头行（对应需求中的第4行，这里假设透视表起始行+3为表头行，可根据实际调整）
headerRow = targetPT.TableRange1.Row + 3
' 动态获取总计行（TableRange2包含透视表的总计区域）
totalRow = targetPT.TableRange2.Row + targetPT.TableRange2.Rows.Count - 1

' 计算表头行与总计行之间的行数
rowCount = totalRow - headerRow + 1

' 将结果写入汇总表B23单元格
wsSummary.Range("B23").Value = rowCount

' 释放对象
Set targetPT = Nothing
Set wsPivot = Nothing
Set wsSummary = Nothing

注意事项 #

• 如果使用静态计算方案，后续行号变动时记得同步修改代码中的行号数值；
• 动态方案中，TableRange1代表透视表的主要数据区域（不含总计），TableRange2包含总计行，你可以根据自己的透视表结构微调表头行的计算逻辑；
• 把这段代码插入到现有代码中合适的执行时机，比如数据透视表更新完成之后，确保统计的是最新的透视表行数。

内容的提问来源于stack exchange，提问作者TurboCoder