如何在数据透视表中的最后一行之前选择行？

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