Excel VBA动态列范围创建图表问题：SC与EC范围不被识别

问题根源 #

1. 你在SetSourceData中错误地将VBA变量SC、EC写在字符串里，VBA会把它们当作普通文本地址解析，而非你定义的Range对象，导致无法识别动态范围。
2. 范围定义语句放在了空值判断之前，若未找到目标单元格ra，会直接触发运行时错误。

修正后的代码 #

Sub Chart()
    ' Chart Macro
    Dim ra As Range
    Dim targetRange As Range
      
    Set ra = Cells.Find(What:="March-2024", LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
    
    If ra Is Nothing Then
        MsgBox "未找到目标单元格"
    Else
        ' 构建目标范围：当前单元格向前3列到当前列，向下延伸1行
        Set targetRange = Range(ra.Offset(0, -3), ra.Offset(1, 0))
        ' 创建图表并设置数据源，合并固定范围与动态范围
        With ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Chart
            .SetSourceData Source:=Union(Range("Charts!$B$1:$B$2"), targetRange)
            ' 可选：添加图表标题
            .ChartTitle.Text = "近三月数据图表"
        End With
    End If
End Sub

关键修改说明 #

• 正确组合动态范围：用Range(起始单元格, 结束单元格)直接构建包含前两月到当前月的范围，替代原有的两个变量，逻辑更清晰。
• 合并不连续范围：使用Union函数将固定范围Charts!$B$1:$B$2和动态范围targetRange合并，这是VBA中设置多区域数据源的标准方式。
• 避免空值错误：将范围定义代码移到ra非空的分支内，确保只有找到目标单元格时才执行范围构建。
• 取消冗余Select：用With语句操作图表对象，避免使用Select，提升代码稳定性与效率。

内容的提问来源于stack exchange，提问作者Мирослав Христов