VBA 自动更新 Excel 折线图到最新日期

Sub UpdateChart()

Dim ws As Worksheet
Dim cht As Chart
Dim xVals As Range
Dim yVals As Range
Dim lastRow As Long

' 设置工作表和图表对象
Set ws = ThisWorkbook.Worksheets('Sheet1')
Set cht = ws.ChartObjects('Chart 1').Chart

' 找到最后一行数据
lastRow = ws.Cells(ws.Rows.Count, 'A').End(xlUp).Row

' 设置 X 轴和 Y 轴数据范围
Set xVals = ws.Range('A2:A' & lastRow)
Set yVals = ws.Range('B2:B' & lastRow)

' 更新图表数据
cht.SetSourceData Source:=Union(xVals, yVals)

' 设置 X 轴标题
cht.Axes(xlCategory).HasTitle = True
cht.Axes(xlCategory).AxisTitle.Text = '日期'

' 设置 Y 轴标题
cht.Axes(xlValue).HasTitle = True
cht.Axes(xlValue).AxisTitle.Text = '数值'

' 设置图表标题
cht.HasTitle = True
cht.ChartTitle.Text = '折线图'

End Sub