更新图表范围以结束行-Java 学习之路

我已经创建了下面的宏它的工作正常..我想选择值来动态结束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

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

如果这有帮助，请告诉我 .

回复于 2024-05-04T03:20:58+08:00

更新图表范围以结束行

1 回答

相关问题