Excelvariables范围创build图表

所以基本上我需要能够select最后一行来创build一个图表使用这种方法。

Sub createchart2() lastA = Range("A1").End(xlDown).Row ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=Range("Main!$A$3:$A$10") End Sub 

我需要A10的范围才能够selectA列中的最后一行。

Answer 1

这是你正在尝试？

 Sub createchart2() Dim lastA As Long lastA = Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=Range("Main!$A$3:$A$" & lastA) End Sub