通过数据透视表项的Excel VBA循环

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

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

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

非常感谢您的帮助！

Answer 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