使用VBA将新列添加到透视表中

我是Excel VBA的新手，现在我在处理透视表方面遇到了困难。数据透视表用于统计分数和分数出现次数

• 我已完成透视表中的平均函数。（COMP）
• 现在我想将分数的出现范围进行分割。例如，有多少人的分数在>=80，或>=70，或>=60，甚至80的范围内 'objField.Function=xlCount “案例得分>70 'objField.Function=xlCount “案例得分>60 'objField.Function=xlCount ”“还有别的吗 'objField.Function=xlCount '结束选择 '以末端接头结束'

  ---

  在pivot表中得到分数范围，我真的很沮丧。一些专家建议我使用第二行（添加一个新列），但我尝试了，但仍然没有成功。由于我的堆栈溢出声誉不超过10分，我无法上传快照以使其更清晰，希望我的描述能帮助您理解这个问题。提前感谢。
  Excel提供的分组功能适用于大多数情况。对于此类示例，可以指定分组依据的范围。在VBA中执行此操作非常简单，只需获取对字段中某个单元格的引用并在其上调用

  Group

  这是密码

  Sub GroupPivot()
  
      Range("D3").Group Start:=60, End:=90, By:=10
  
  End Sub
  

  这是一张带有普通菜单和分组调用结果的图像

  ---

  将您的截图上传到图像共享网站，然后将链接放到您的帖子中。有足够声誉的人会将其添加到您的帖子中。

  Sub GroupPivot()
  
      Range("D3").Group Start:=60, End:=90, By:=10
  
  End Sub