选择枢轴项目答案

【问题标题】：Select pivot item选择枢轴项目
【发布时间】：2022-10-12 23:57:47
【问题描述】：

我正在遍历数据透视表列的每个项目，并且我想选择/激活每个单元格。我怎样才能写这个来激活正在循环的数据透视项的单元格？

【问题讨论】：

【解决方案1】：

也许...

Sub TryThis()
Dim rng As Range, cell As Range
Set rng = Range("A1:A3")
For Each cell In rng
    cell.Select
Next cell
End Sub

有关动态范围，请参阅下面的链接。

【讨论】：

嗨，谢谢你的快速回答。问题是我不知道范围，我不知道数据透视表有多少元素。所以，我的计划是遍历数据透视表特定列的每个项目。但是我如何在循环时选择/激活每个单元格？ pivotfields.PivotItems.select 不起作用。谢谢你！
我将在下一条评论中发布代码。目的是更改数据透视表中特定单词的颜色。但在数据透视表中，我不知道如何激活循环的单元格。因为代码引用了activecell.characters
Set pt = Sheets("Comments").PivotTables("Com") Set pf = pt.PivotFields("Comment") For item = 1 To pf.PivotItems.Count x = pf.PivotItems(item).Value strSearch = " set" firstChar = InStr(x, strSearch) Do While firstChar > 0 ActiveCell.Characters(firstChar, Len(strSearch)).Font.Color = RGB(255, 153, 0) firstChar = InStr(firstChar + 1, x, strSearch ) 循环下一项
我刚刚更新了我的答案。