vba循环遍历透视表的所有透视字段并返回指定值

我有一个数据集，它的条目有5个不同的属性和一个值。例如，我身高5000人。对于每个人，我有他的头发颜色，眼睛颜色，他的国籍，他出生的城市和他母亲的名字（5维）

否/眼睛颜色/头发颜色/国籍/家乡/母亲姓名/身高

蓝金发瑞士苏里奇妮可184

蓝棕色英国约克红宝石164

棕色法国巴黎索菲154

等等

所以有5个维度。数据是动态设置的，因此每个维度中的类别数量可能会有所不同。我试图计算人们的平均身高，这取决于我是否想要包括一些维度（从1到5）。例如，我希望检索：

法国人和蓝眼睛人的平均身高。第二天，只有在伦敦出生的人。一周后，这位瑞士人，蓝眼睛，红头发，出生在日内瓦，母亲名叫妮可

因此，我创建了一个透视表，其中眼睛颜色作为行标签，头发颜色作为列标签，平均高度作为数据，最后3个维度作为市场过滤器。这让我看到了我的数据所暗示的所有可能和期望的平均高度组合

现在我的目标是：

我想创建一个宏，它遍历我的维度所包含的所有可能的组合（即2^5-1=31），并将高于某个值（例如190）的所有高度平均值组合存储在一个向量中。然后它可以打印在工作表上

我在考虑使用一些布尔数组向量和下一个结构，但我必须说，我无法想象如何实现它

有什么想法吗

谢谢你的时间和帮助