Excel VBA 循环遍历数据透视项

【问题标题】：Excel VBA loop through Pivot ItemsExcel VBA 循环遍历数据透视项
【发布时间】：2014-06-16 20:01:37
【问题描述】：

我想遍历我的数据透视项目并检查它们是否存在于另一个表中，请参阅我的示例屏幕截图：

所以我想遍历所有颜色，检查它们是否存在于另一个表中（例如在另一个表中）：

有没有办法做到这一点，所以会出现一个在列表中找不到紫色的消息框？

非常感谢您的帮助！

【问题讨论】：

标签： vba excel pivot

【解决方案1】：

你可以这样使用：

Sub ListMissingItems()

    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem
    Dim rngList As Range
    Dim strMsg As String

    ' change sheet and range
    Set rngList = Worksheets("List").Range("A1:A10")

    Set pt = ActiveSheet.PivotTables(1)
    ' change field as needed
    Set pf = pt.PivotFields("Colour")

    For Each pi In pf.PivotItems
        If IsError(Application.Match(pi.Caption, rngList, 0)) Then strMsg = strMsg & vbLf & pi.Caption
    Next pi

    If Len(strMsg) > 0 Then MsgBox "The following items were not found in the list:" & strMsg
End Sub

【讨论】：

完美运行！非常感谢！