VBA 我无法使用 Dictionary 来使用 Exists 方法

Question

Dim memberDic As Object: Set memberDic = CreateObject("Scripting.Dictionary")
Set memberDic("Team A") = CreateObject("Scripting.Dictionary")

memberDic("Team A")("Tanaka") = 1
memberDic("Team A")("Watanabe") = 2
memberDic("Team A")("Shimizu") = 3

For Each person In ActiveSheet.PivotTables(fy).PivotFields("name").PivotItems
    If Not memberDic("Team A").Exists(person.Name) Then
        'hidden person except Team A
    End If
Next person

我想使用 Exists 方法排除项目。你能给我建议吗？

Answer 1

正式化针对该问题发布的评论:

修剪数据透视表中的值，以便 Exists 正常工作:

For Each person In ActiveSheet.PivotTables(fy).PivotFields("name").PivotItems
    If Not memberDic("Team A").Exists(Trim(person.Name)) Then
        'hidden person except Team A
    End If
Next person