如何仅扩展具有1个以上子项目的枢轴项目

Question

我在数据透视表中有2个级别。我只想扩展第二级中具有1个以上项目的项目。 VBA代码可以做到这一点吗？