Как найти последний ряд в сводной таблице?

Question

Я пытаюсь найти последнюю строку в сводной таблице с именем pivotTable1.

 Sub lastrowPT ()
    Dim pt As PivotTable
    Dim lastRow As Long


    Set pt = Sheet1.PivotTables(1)
    lastRow = pt.TableRange2.Cells(1).row + pt.TableRange2.Rows.count - 1

End sub

Но у меня ничего не получается. Есть идеи?

Answer 1

Вы можете сделать это так:

With Sheet1.PivotTables(1).TableRange2
    LastRow = .Rows(.Rows.Count).Row
End With