我来帮你搞定这个问题！其实实现起来并不复杂，有两种很实用的方案，一种不用写代码（适合新手），另一种用VBA自动触发（更灵活），我都给你详细说明：

方法一：动态名称管理器（无代码方案） #

这种方法靠Excel的名称管理器来定义随单元格值变化的动态范围，然后把图表指向这个动态名称：

• 1. 打开名称管理器：点击顶部菜单栏的「公式」→「名称管理器」→「新建」
• 2. 定义动态名称：
  • 名称栏输入一个好记的名字，比如DynamicAData
  • 「引用位置」里输入公式（注意替换你的工作表名和控制单元格，这里假设控制单元格是Sheet1!$B$1）：

    =IF(Sheet1!$B$1=1, Sheet1!$A$1:$A$100, IF(Sheet1!$B$1=10, Sheet1!$A$10:$A$100, Sheet1!$A$1:$A$100))
    

  • 点击「确定」保存这个动态名称
• 3. 修改图表数据系列：
  • 选中图表里需要调整的A列数据系列
  • 看Excel顶部的公式栏，把原来的范围（比如=Sheet1!$A$1:$A$100）替换成=Sheet1!DynamicAData
  • 回车确认后，修改控制单元格B1的数值为1或10，图表范围就会自动跟着变啦！

方法二：VBA宏（自动触发，更灵活） #

如果想要控制单元格一修改就自动更新图表，用VBA的工作表变化事件最合适：

• 1. 打开VBA编辑器：按Alt+F11组合键，在左侧找到你的目标工作表（比如Sheet1），双击打开代码窗口
• 2. 粘贴以下代码（记得根据你的实际情况修改控制单元格、图表名称和数据系列索引）：

  Private Sub Worksheet_Change(ByVal Target As Range)
      ' 监控的控制单元格，这里是B1，可改成你实际的单元格地址
      If Target.Address = "$B$1" Then
          Dim myChart As ChartObject
          Dim targetSeries As Series
          
          ' 替换成你的图表名称，比如"Chart 1"
          Set myChart = Me.ChartObjects("Chart 1")
          ' 替换成你要修改的数据系列索引，第一个系列是1，第二个是2，以此类推
          Set targetSeries = myChart.Chart.SeriesCollection(1)
          
          Select Case Target.Value
              Case 1
                  targetSeries.Values = "=Sheet1!$A$1:$A$100"
              Case 10
                  targetSeries.Values = "=Sheet1!$A$10:$A$100"
              ' 如果需要其他数值的默认处理，可以在这里加Case Else
              Case Else
                  targetSeries.Values = "=Sheet1!$A$1:$A$100"
          End Select
      End If
  End Sub
  

• 3. 测试效果：回到Excel，修改控制单元格的数值为1或10，图表的A列数据范围会立刻自动更新

一些注意事项 #

• 用动态名称管理器的方法时，要确保工作表名称和控制单元格的引用完全正确，不然范围不会生效
• VBA方法需要把文件保存为.xlsm格式（启用宏的工作簿），打开时要允许宏运行
• 如果不知道图表名称或数据系列索引，可以右键图表→「选择数据」来查看

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