时间戳

首页 > 解决方案 > 更新图表范围以结束行

excel - 更新图表范围以结束行

问题描述

我已经创建了以下宏，它工作正常.. 我想选择值来动态结束 Row 而不是 $A$3:$A$328 .. 类似于 Range("A3" & Rows.Count).End(xlUp).Row

谁能帮帮我

  Private Sub CommandButton1_Click()

    Dim arrCharts, cht
    Dim wb As Worksheet
    Dim wbTarget As Workbook
    Dim sh As Worksheet


    Set wbTarget = Workbooks.Open(Filename:="C:\Users\mahather\Desktop\Report\Summary Report.xlsx")
    Set wb = wbTarget.Worksheets("Graph")
    Set sh = wbTarget.Worksheets("Summary")


    arrCharts = Array("Chart 2", "Chart 5")

    For Each cht In arrCharts
        With wb.ChartObjects(cht).Chart
            .SeriesCollection(1).XValues = "='Summary'!$A$3:$A$328"
        End With
    Next cht


    End Sub

标签： excelvba

解决方案

你可以使用下面的代码，

Dim LastRow As Long
 LastRow = ThisWorkbook.Sheets("Summary").UsedRange.Rows(ThisWorkbook.Sheets("Summary").UsedRange.Rows.Count).Row

然后为每个编辑下面的行

  .SeriesCollection(1).XValues = "='Summary'!$A$3:$A$" & LastRow

让我知道这是否有帮助。

推荐阅读