Обновить диапазон диаграммы до конца строки

Question

Я создал приведенный ниже макрос, который работает нормально. Я хочу выбрать значение для динамического завершения строки вместо $ 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

Answer 1

Вы можете использовать следующий код,

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 

Дайте мне знать, если это поможет.