使用Excel宏录制器创建跨工作表图表的问题及简易解决咨询

一、修复数据源固定为Sheet1的问题 #

宏录制器会把你录制时的具体工作表范围硬编码，导致在其他sheet运行时仍调用Sheet1的数据。只需做几行简单修改，无需重写宏：

1. 按Alt+F11打开VBA编辑器，找到你录制的宏代码
2. 定位到这行硬编码数据源的代码：

   ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$C$11")
   

3. 替换为以下任意一种写法：
   • 贴合你录制时的选中操作，直接用当前选区：

     ActiveChart.SetSourceData Source:=Selection
     

   • 更稳妥的写法（确保只取B4开始的2列数据，避免误选多余列）：

     ActiveChart.SetSourceData Source:=ActiveSheet.Range("B4").CurrentRegion.Resize(, 2)
     

   修改后，宏会自动读取当前活动工作表的对应数据区域，在Sheet1、Sheet2等任意工作表运行都有效。

二、修复图表名称硬编码导致的报错 #

录制宏时调整图表选项（如修改标题、样式），会生成Chart5这类固定图表名称，再次运行时因同名图表已存在报错。解决方法同样是修改几行代码：

1. 在宏代码里找到所有引用固定图表名称的行，例如：

   Sheets("Sheet1").ChartObjects("Chart5").Activate
   Chart5.ChartTitle.Text = "数据图表"
   

2. 将这些行替换为用ActiveChart操作，比如：

   ActiveChart.ChartTitle.Text = "数据图表"
   

   刚创建完图表时，ActiveChart就是那个新生成的图表，无需依赖固定名称，重复运行也不会报错。

额外录制技巧（减少后续修改） #

如果不想事后改代码，可以调整录制顺序：

• 先切换到非Sheet1的工作表（比如Sheet2），再开始录制宏
• 按你的操作流程：选中B4，用Ctrl+Shift+↓→选中数据区域，插入图表，调整选项
• 录制完成后，仅需把代码里的Sheet2替换为ActiveSheet，宏就天生支持多工作表使用

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