如何使用Excel VBAselect数据透视表字段中的最后一项？

我有一个数据透视表“date/时间”数据透视表。 我需要一个macrosselect该字段的最后一个项目。 我试过下面的代码，但不工作

Sub Test() Dim i As Long i = ActiveSheet.PivotTables("PivotTable1").PivotFields("Date/Time").PivotItems.Count With ActiveSheet .PivotTables("PivotTable1").PivotFields("Date/Time").PivotItems(i).Visible=True End With End Sub 

请帮我一下 我找不到我的错误。

Answer 1

这不是一个优雅的答案。 我不能说我完全相信。 既然你说你只需要过滤Date/Time ，请试试这个评论。

 Sub somePivot() Dim n As Long With Worksheets(2) n = .PivotTables("PivotTable3").PivotFields("Date/Time").PivotItems.Count MsgBox n .PivotTables("PivotTable3").PivotFields("Date/Time").AutoSort xlAscending, "Date/Time" MsgBox .PivotTables("PivotTable3").PivotFields("Date/Time").PivotItems(n).Value End With End Sub