Excel VBA使用LastRow-1创建多列图表排除总计行时报错的技术问询

我来帮你搞定这个困扰！你当前的代码里有几个关键问题导致报错，咱们一步步修正：

问题根源 #

你已经正确算出了排除总计行的LastRow，但后续选择数据范围时根本没用到这个变量，反而用了Range("A6").End(xlDown)——这种写法很容易出问题：如果数据中间有空行，它会提前终止；就算没有空行，也会默认包含总计行，而且你之前尝试的Range("A6").End(xlDown)-1是语法错误（不能直接给Range对象减1）。

修正后的代码 #

Sub NewChart()
    Dim ws As Worksheet
    Dim LastRow As Long
    
    ' 绑定工作表对象，避免用Select/Activate（这类方法稳定性差）
    Set ws = Worksheets("Dashboard")
    
    ' 获取总计行的上一行（即最后一行有效数据）
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row - 1
    
    ' 直接用LastRow精准定义数据范围，生成图表
    Charts.Add
    With ActiveChart
        .SetSourceData Source:=Union( _
            ws.Range("A6:A" & LastRow), _
            ws.Range("E6:E" & LastRow) _
        )
        ' 可选：设置图表类型，比如柱状图
        .ChartType = xlColumnClustered
    End With
End Sub

关键改进点 #

• 抛弃Select操作：VBA里依赖Select/Activate很容易因为工作表切换、焦点变化出问题，直接操作工作表和图表对象更可靠。
• 精准使用LastRow：用"A6:A" & LastRow直接锁定从A6到最后一行有效数据的区域，E列同理，彻底避开总计行。
• 避免中间空行陷阱：从工作表底部向上找最后一行数据（ws.Cells(ws.Rows.Count, "A").End(xlUp)）的方法，不会被数据中间的空白单元格影响，比End(xlDown)靠谱得多。

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