请求协助：将Excel VBA图表数据范围改为动态获取至最后一行

没问题，我帮你调整这段VBA代码，让图表的数据源自动适配到A列最后一行的数据，不用再硬编码行号。下面是具体的修改思路和完整代码示例：

核心修改步骤 #

• 获取动态行号：先定位到Summary工作表A列的最后一行非空单元格，得到对应的行号
• 构建动态范围：用这个行号拼接出从A3到最后一行的完整数据范围
• 替换固定引用：把原来代码里的$A$3:$A$328替换成我们构建的动态范围

修改后的完整代码 #

Private Sub CommandButton1_Click()
    Dim arrCharts, cht
    Dim wb As Worksheet
    Dim wbTarget As Workbook
    Dim sh As Worksheet
    Dim lastRow As Long ' 存储A列最后一行的行号
    Dim chartDataRange As Range ' 存储动态数据范围
    
    Set wbTarget = Workbooks.Open(Filename:="C:\Users\mahather\Desktop\Report\Summary Report.xlsx")
    Set wb = wbTarget.Worksheets("Graph")
    Set sh = wbTarget.Worksheets("Summary")
    
    ' 关键：获取A列最后一行的行号（从列底往上找第一个非空单元格）
    lastRow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
    
    ' 处理边界情况：如果A3以下没有数据，直接退出避免报错
    If lastRow < 3 Then
        MsgBox "A3下方没有有效数据，无法生成图表！"
        wbTarget.Close SaveChanges:=False
        Exit Sub
    End If
    
    ' 构建从A3到最后一行的动态数据范围
    Set chartDataRange = sh.Range("A3:A" & lastRow)
    
    ' 循环设置每个图表的数据源（这里假设你的arrCharts是图表对象数组，根据实际情况调整）
    arrCharts = Array(wb.ChartObjects("Chart 1"), wb.ChartObjects("Chart 2")) ' 替换成你实际的图表名称/对象
    For Each cht In arrCharts
        cht.Chart.SetSourceData Source:=chartDataRange
        ' 这里可以保留你原来的其他图表设置代码（比如标题、样式等）
    Next cht
    
    ' 根据需求添加保存、关闭工作簿的代码
    ' wbTarget.Save
    ' wbTarget.Close
End Sub

额外说明 #

• 我用sh.Cells(sh.Rows.Count, "A").End(xlUp).Row来获取行号，比你提到的写法更严谨，因为明确指定了是Summary工作表的A列，不会受当前激活的工作表影响。
• 如果你的图表需要多列数据（比如A列和B列），只需要把范围改成sh.Range("A3:B" & lastRow)即可，灵活调整列的范围。
• 加了边界判断，如果A3以下没有数据，会弹出提示并退出，避免宏报错。

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