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

以下是自动更新 Excel 折线图至最新日期的 VBA 代码，假设：

折线图数据位于'Sheet1'工作表中的 A1:B10 单元格范围内。
第一列是日期，第二列是数据。
图表位于'Sheet2'工作表中的 C1:E10 单元格范围内。
图表类型是折线图。

Sub UpdateChart()

    Dim lastRow As Long
    Dim chartRange As Range
    
    ' 获取最新日期的行号
    lastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 更新图表数据范围
    Set chartRange = Sheets("Sheet1").Range("A1:B" & lastRow)
    Sheets("Sheet2").ChartObjects("Chart 1").Chart.SetSourceData chartRange
    
    ' 自动调整图表大小
    Sheets("Sheet2").ChartObjects("Chart 1").Height = 300
    Sheets("Sheet2").ChartObjects("Chart 1").Width = 500
    
End Sub

要使用此代码，请按照以下步骤操作：

打开包含图表和数据的 Excel 工作簿。
按 Alt + F11 打开 VBA 编辑器。
在左侧的“项目资源管理器”窗格中，双击工作簿的名称，打开该工作簿的代码窗口。
将上述代码复制并粘贴到代码窗口中。
关闭 VBA 编辑器。
以后每当您需要更新图表时，只需打开工作簿并运行 UpdateChart 子程序即可。

要运行子程序，请按 Alt + F8 打开宏对话框，然后选择“UpdateChart”，并单击“运行”按钮。