如何在Excel VBA中利用lastCol创建含A列至最后一列的图表？

你遇到的核心问题是给列字母添加了多余的双引号，导致Range引用格式无效，图表无法识别数据源。以下是具体分析和修正方案：

问题根源 #

你在获取lastColLetter时执行了lastColLetter = Chr(34) & lastColLetter & Chr(34)，这会让列字母变成带双引号的字符串（比如"AL"）。拼接后Range的参数变成了"Graphs!$A:""AL"""，实际传递的引用是Graphs!$A:"AL"——这是无效的单元格范围格式，自然无法加载数据。

修正步骤 #

1. 修正列字母的获取代码

去掉多余的双引号，直接获取纯列字母：

Dim lastCol As Long, lastColLetter As String
With ThisWorkbook.Worksheets("Graphs") '明确指定工作表，避免ActiveSheet的不确定性
    lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    lastColLetter = Split(.Cells(1, lastCol).Address, "$")(1) '用已获取的lastCol直接定位，更高效
End With

2. 正确设置图表数据源

用纯列字母拼接范围字符串：

ActiveChart.SetSourceData Source:=Range("Graphs!$A:$" & lastColLetter)

更可靠的方案：直接用列号构建范围 #

不需要转换列字母，直接通过列号构建Range对象，避免字符串拼接的潜在问题：

With ThisWorkbook.Worksheets("Graphs")
    ActiveChart.SetSourceData Source:=.Range(.Columns(1), .Columns(lastCol))
End With

完整优化后的代码（避免Select，更稳定） #

VBA中尽量避免使用Select/ActiveChart，改用对象变量操作更可靠：

Sub CreatePressureChart()
    Dim lastCol As Long
    Dim wsGraphs As Worksheet
    Dim chtObj As ChartObject
    
    '指定目标工作表
    Set wsGraphs = ThisWorkbook.Worksheets("Graphs")
    
    '获取第一行最后一个非空列的列号
    lastCol = wsGraphs.Cells(1, wsGraphs.Columns.Count).End(xlToLeft).Column
    
    '创建图表并绑定数据源
    Set chtObj = wsGraphs.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).ChartObject
    With chtObj.Chart
        '直接用列号构建数据源范围
        .SetSourceData Source:=wsGraphs.Range(wsGraphs.Columns(1), wsGraphs.Columns(lastCol))
        .ChartTitle.Text = "Pressure over time"
        
        '配置坐标轴
        With .Axes(xlCategory, xlPrimary)
            .HasTitle = True
            .AxisTitle.Text = "Foaming time [s]"
            .MaximumScale = 120
        End With
        With .Axes(xlValue, xlPrimary)
            .HasTitle = True
            .AxisTitle.Text = "Pressure [bar]"
        End With
        .HasLegend = False
    End With
End Sub

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