如何查找pivotTable中的最后一行?

我想在一个名为pivotTable1的pivotTable中找到最后一行。

 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

但是,我它是什么工作。有什么好办法吗?

解决方案:

你可以这样做。

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

数据表Row2的最后一个单元格。

Dim rw As Range
With Sheet1.PivotTables(1).DataBodyRange
    Set rw = .Rows(2)
End With
rw.Cells(rw.Cells.Count).Select

https:/peltiertech.comreferencing-pivot-table-ranges-in-vba。

给TA打赏
共{{data.count}}人
人已打赏
解决方案

错误:x509:证书由未知机构签署,种类为群集

2022-4-22 5:00:21

解决方案

用PyQt5进行视频录制

2022-4-22 5:00:23

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索