如何在数据透视表中选择 lastrow 之前的行？答案

【问题标题】：How to select the row before lastrow in a pivottable?如何在数据透视表中选择 lastrow 之前的行？
【发布时间】：2019-07-11 04:30:47
【问题描述】：

我需要选择最后一行前一排的单元格。我该怎么做？

我尝试过lastrow = lastrow -1，但显然不是这样。

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

我只需要选择 F 列最后一行前一行的单元格

【问题讨论】：

【解决方案1】：

这将完成工作：

Set pt = .PivotTables("PivotTable2")

Dim lstr() As String

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

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

pt.RowRange 为您提供数据透视表 pt 所在的行。

【讨论】：

【解决方案2】：

你可以Offset第一行PivotTable.TableRange得到它的最后一行：

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

【讨论】：