计算行数（透视表 VBA）

要计算透视表的行数，可以使用以下VBA代码示例：

Sub CountPivotTableRows()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") '替换为透视表所在的工作表
    
    Dim pt As PivotTable
    Set pt = ws.PivotTables("PivotTable1") '替换为透视表的名称
    
    Dim rowRange As Range
    Set rowRange = pt.TableRange1.Rows '获取透视表的行范围
    
    Dim rowCount As Long
    rowCount = rowRange.Rows.Count '计算行数
    
    MsgBox "透视表的行数为：" & rowCount
End Sub

请确保将代码中的“Sheet1”和“PivotTable1”替换为适用于您的工作表和透视表的名称。运行代码后，将弹出一个消息框，显示透视表的行数。