VBA图表.XValues/.Values动态引用及重复运行系列冗余问题求助

我来帮你搞定这两个VBA图表的小麻烦，都是写代码时很容易踩的坑：

问题1：动态引用单元格时.XValues/.Values没效果 #

你遇到的问题核心是范围引用没指定工作表！看你代码里的Range("B18").End(xlDown)，这个写法默认会找当前激活的工作表，要是你运行代码时Data表不是当前活动表，那引用的范围就错了，自然看起来动态引用没生效。

改起来很简单，给所有Range都加上ws前缀，确保它只找Data工作表里的单元格：

Sub AddChart() 
Dim ch As Chart 
Dim ws As Worksheet 
Set ws = Sheets("Data") 
Set ch = Charts.Add2 
With ch.SeriesCollection.NewSeries 
    .Name = ws.Range("B1") 
    .XValues = ws.Range("B18", ws.Range("B18").End(xlDown)) ' 加上ws前缀锁定Data表
    .Values = ws.Range("C18", ws.Range("C18").End(xlDown))   ' 补全代码并锁定工作表
End With
' 可以加些图表美化设置，比如类型和标题
ch.ChartType = xlColumnClustered
ch.HasTitle = True
ch.ChartTitle.Text = "你的数据图表"
End Sub

这样不管哪个工作表是当前活动状态，都会精准引用Data表里的动态范围。

问题2：第二次运行代码时系列重复、数量超预期 #

这个问题大概率是图表复用导致的系列堆积：要么你没每次都创建全新的图表，要么偶尔代码没正确初始化图表，导致SeriesCollection.NewSeries在已有系列后面继续加新的，次数多了系列就超了。

给你两种解决方案，看你需求选：

• 如果你每次都要新建一张干净的图表（和你原代码逻辑一致）：
  可以在加新系列前强制清空图表里的所有旧系列（以防Excel环境有异常残留）：

  Set ch = Charts.Add2
  ' 先清空所有现有系列
  Do While ch.SeriesCollection.Count > 0
      ch.SeriesCollection(1).Delete
  Loop
  ' 再添加新系列
  With ch.SeriesCollection.NewSeries
      .Name = ws.Range("B1")
      .XValues = ws.Range("B18", ws.Range("B18").End(xlDown))
      .Values = ws.Range("C18", ws.Range("C18").End(xlDown))
  End With
  

• 如果你是要更新已有的图表（不想每次新建）：
  先定位到目标图表，清空旧系列后再添加新的：

  Sub UpdateChart()
  Dim ch As Chart
  Dim ws As Worksheet
  Set ws = Sheets("Data")
  ' 假设图表在Data工作表里，名称是"数据图表"
  Set ch = ws.ChartObjects("数据图表").Chart
  ' 清空所有旧系列
  Do While ch.SeriesCollection.Count > 0
      ch.SeriesCollection(1).Delete
  Loop
  ' 添加新系列
  With ch.SeriesCollection.NewSeries
      .Name = ws.Range("B1")
      .XValues = ws.Range("B18", ws.Range("B18").End(xlDown))
      .Values = ws.Range("C18", ws.Range("C18").End(xlDown))
  End With
  End Sub
  

内容的提问来源于stack exchange，提问作者M.J