修改独立图表工作表数据源并实现自动更新时遇代码报错求助

嘿，我来帮你搞定这个问题！你遇到的情况是：当数据源工作表新增数据后，独立图表工作表的数据源没法自动扩展，而且运行VBA代码时还弹出「应用程序或对象定义错误」。先揪出你代码里的问题，再给你两种靠谱的解决办法——一种是不用VBA的原生设置（推荐），另一种是修正后的健壮VBA代码。

一、你的VBA代码为啥报错？ #

看你贴的代码片段，至少有三个坑：

1. 拼写错误：SetSourceDate应该是SetSourceData（少了个字母a），这绝对会触发语法错误！
2. 对象类型搞错：独立图表工作表是Chart对象，不是普通的Worksheet，用Sheets("_Chartsheet-sheet").Select后操作ChartObjects本身就不对，因为独立图表里没有ChartObjects集合。
3. 依赖选择/激活操作：VBA里用Select和Activate很容易因为当前焦点不在目标工作表而报错，而且你没动态获取新增数据后的范围，就算语法对了也没法自动扩展。

二、方案1：不用VBA，用Excel原生动态名称（最省心） #

如果能不用代码就搞定，那肯定是最优解，步骤如下：

• 打开你的数据源工作表，选中初始数据源区域（比如A1:Q10）。
• 点击公式栏左侧的名称框，输入一个自定义名称（比如DynamicChartData），按回车确认。
• 按Ctrl+F3打开「名称管理器」，找到刚创建的DynamicChartData，修改「引用位置」为动态公式：

  =OFFSET(数据源工作表!$A$1,0,0,COUNTA(数据源工作表!$A:$A),COUNTA(数据源工作表!$1:$1))
  

  👉 逻辑说明：用COUNTA统计A列的有效数据行数（确保覆盖所有新增行）和第1行的有效数据列数（覆盖新增列），OFFSET会自动扩展范围到最新数据。
• 切换到独立图表工作表，右键点击图表→选择数据→修改图表数据区域为=你的工作簿名!DynamicChartData（记得替换成实际工作簿名称）。
• 以后在数据源末尾新增行/列，图表会自动同步更新，完全不用手动调整！

三、方案2：修正后的VBA代码（适合必须用VBA的场景） #

如果一定要用VBA实现，那得把代码改得更健壮，避免选择/激活操作，同时动态获取数据源范围：

Sub UpdateChartSourceData()
    Dim wsData As Worksheet
    Dim chartSheet As Chart
    Dim lastRow As Long
    Dim lastCol As Long
    Dim dynamicRange As Range
    
    ' 替换成你的实际工作表名称
    Set wsData = ThisWorkbook.Worksheets("数据源工作表")
    ' 独立图表是Chart对象，用Charts集合引用
    Set chartSheet = ThisWorkbook.Charts("_Chartsheet-sheet")
    
    ' 动态获取最后一行（假设A列是数据行的标识列，不会有空行）
    lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row
    ' 动态获取最后一列（假设第1行是表头，不会有空列）
    lastCol = wsData.Cells(1, wsData.Columns.Count).End(xlToLeft).Column
    
    ' 定义包含所有数据的动态范围
    Set dynamicRange = wsData.Range(wsData.Cells(1, 1), wsData.Cells(lastRow, lastCol))
    
    ' 直接给图表设置数据源，无需选择激活
    chartSheet.SetSourceData Source:=dynamicRange
End Sub

代码核心改进点： #

• 直接引用Chart对象：独立图表不是普通工作表，必须用ThisWorkbook.Charts("图表名")来调用，这是你之前代码报错的关键原因之一！
• 动态扩展范围：用End(xlUp)和End(xlToLeft)精准定位最后一行/列，确保数据源自动覆盖新增数据。
• 抛弃Select/Activate：直接操作对象，不会因为当前选中的工作表不对而报错，代码更稳定。

四、让VBA自动触发（可选） #

如果想让代码在新增数据时自动运行，可以给数据源工作表添加Worksheet_Change事件：

1. 右键数据源工作表标签→查看代码。
2. 在弹出的代码窗口中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 当数据源有修改时，自动更新图表
    UpdateChartSourceData
End Sub

以后只要数据源工作表新增或修改数据，图表就会自动同步更新。

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