Как выбрать строку перед последней строкой в ​​сводной таблице?

Question

Мне нужно выбрать ячейку за одну строку до последней строки .Как мне это сделать?

Я пробовал lastrow = lastrow -1, и, очевидно, это не сработало.

Set pt = .PivotTables("PivotTable2")
lastrow = .Range(Split(pt.TableRange1.Address(0, 0), ":")(1)).Row

Мне просто нужно выбрать ячейку на одну строку перед последней строкойв столбце F

Answer 1

Это выполнит задание:

Set pt = .PivotTables("PivotTable2")

Dim lstr() As String

lstr = Split(pt.RowRange.Address, ":")

.Range(lstr(1)).Offset(-1, 0).Select

pt.RowRange даст вам строки, в которых существует сводная таблица pt.

Answer 2

Вы можете Offset первый ряд PivotTable.TableRange, чтобы получить последний ряд:

lastrow = pt.TableRange1.Rows(1).Offset(pt.TableRange1.Rows.Count - 1).Row
ActiveSheet.Cells(lastrow - 1, "F").Select