基于VBA实现透视表选择性钻取及新工作表复合命名需求

需求概述 #

• 目标：自动化每日Excel报表流程（今年刚接触宏与VBA）
• 透视表钻取规则：
  • 当前月：仅钻取Apples和Oranges
  • 过往月：额外钻取Bananas和Grapes
• 输出要求：生成以「月份 水果」命名的独立工作表，示例输出为：Jan Apples、Mar Bananas、Mar Grapes、Mar Oranges、Apr Apples、Apr Oranges
• 变量条件：每日出现的月份组合、水果类别不固定

初期探索的思路（均不够优雅） #

• 思路1：先钻取透视表所有有值的单元格，再通过If/Else判断月份与当前日期，结合预设的水果行标题，删除空工作表或不符合要求的工作表
• 思路2：定义行、列计数变量，结合If/Else逻辑，仅生成符合规则的工作表
• 思路3：直接基于预设的月份-水果组合进行钻取，不考虑透视表每日的实际填充情况

最终成果 #

耗时两周左右，已完成大致符合需求的VBA自动化实现。

内容的提问来源于stack exchange，提问作者SirNoobofCode