设置图表范围并在有空单元格时停止

Question

我正在尝试在我的vba上绘制图表并设置图表范围。我希望图表范围在有空单元格时结束，因为我有大量数据。但是，它不起作用。我想得到很多分，但我最终只得到一分。我检查了图表中的选定数据，结果表明范围不是我想要的范围，但我键入了正确的范围。谢谢你的帮助。

 Set rng = Sheet2.range("I24", ActiveCell.End(xlDown))
 Set ach = Sheet3.Shapes.AddChart2
 ach.Chart.SetSourceData Source:=rng
 ach.Chart.ChartType = xlXYScatter
 ach.Chart.ChartTitle.Text = "Alignment"
 ach.Left = 200
 ach.Height = 400
 ach.Width = 600

Answer 1

使用：

With Sheet2
    Set rng = .Range(.Range("I24"), .Range("I24").End(xlDown))
ENd With