Excel VBA动态列数图表创建：调整数据源范围的代码修改需求

问题描述 #

我想用Excel VBA创建列数动态变化的图表，现有部分代码如下：

'Create chart
'Columns("A:DZ").Select
ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Select
ActiveChart.SetSourceData Source:=Range("Graphs!$A:$AL")
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "Pressure over time"

With ActiveChart
  With .Axes(xlCategory, xlPrimary)
    .HasTitle = True
    .AxisTitle.Text = "Time [s]"
    .MaximumScale = 120
  End With
  With .Axes(xlValue, xlPrimary)
    .HasTitle = True
    .AxisTitle.Text = "Pressure [bar]"
  End With
  .HasLegend = False
End With

当前图表固定引用A到AL列，但AL不是最后一列。我需要实现两个图表：

• 第一个图表包含A列到lastcolumn-1列
• 第二个图表仅包含A列和lastcolumn列

我已经通过lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column获取到最后一列的序号，但尝试用Range("Graphs!$A"&(lastcol-1)时失败了，求修改方法。

解决方案 #

以下是修正后的代码，核心是通过列号直接引用整列，避免字符串拼接的错误，同时取消Select操作提升代码稳定性：

Dim ws As Worksheet
Dim lastCol As Long
Dim chart1 As ChartObject
Dim chart2 As ChartObject

' 指定目标工作表
Set ws = ThisWorkbook.Worksheets("Graphs")

' 获取数据区域最后一列的序号
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

' ========== 创建第一个图表：A列至lastCol-1列 ==========
Set chart1 = ws.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).ChartObject
With chart1.Chart
    ' 动态设置数据源：从第1列(A)到lastCol-1列
    .SetSourceData Source:=ws.Range(ws.Columns(1), ws.Columns(lastCol - 1))
    .ChartTitle.Text = "Pressure over time (A to lastCol-1)"
    
    With .Axes(xlCategory, xlPrimary)
        .HasTitle = True
        .AxisTitle.Text = "Time [s]"
        .MaximumScale = 120
    End With
    With .Axes(xlValue, xlPrimary)
        .HasTitle = True
        .AxisTitle.Text = "Pressure [bar]"
    End With
    .HasLegend = False
    
    ' 设置图表位置，避免重叠
    .Parent.Top = 100
    .Parent.Left = 100
End With

' ========== 创建第二个图表：仅A列和lastCol列 ==========
Set chart2 = ws.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).ChartObject
With chart2.Chart
    ' 使用Union方法合并A列和最后一列的范围
    .SetSourceData Source:=Union(ws.Columns(1), ws.Columns(lastCol))
    .ChartTitle.Text = "Pressure over time (A & lastCol)"
    
    With .Axes(xlCategory, xlPrimary)
        .HasTitle = True
        .AxisTitle.Text = "Time [s]"
        .MaximumScale = 120
    End With
    With .Axes(xlValue, xlPrimary)
        .HasTitle = True
        .AxisTitle.Text = "Pressure [bar]"
    End With
    .HasLegend = False
    
    ' 设置图表位置，与第一个图表错开
    .Parent.Top = 100
    .Parent.Left = 400
End With

关键说明 #

• 避免Select操作：直接用ChartObject对象操作图表，避免因工作表切换导致的错误，代码更健壮。
• 动态列引用：用ws.Columns(列号)直接引用整列，无需手动转换列号为列名（比如把28转换成AB），彻底避免字符串拼接的语法错误。
• 合并不连续列：第二个图表用Union方法合并A列和最后一列，确保数据源仅包含指定的两列。

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