如何使用范围内的变量进行图形绘制？

Question

我想使用此代码循环绘制图形：

1  For i = 354 To 357

2    Range((Cells(208, 353)), Cells(219, 353)).Select
3    Range(Cells(208, i), Cells(219, i)).Select

4    ActiveSheet.Shapes.AddChart.Select
5    ActiveChart.ChartType = xlColumnClustered
6   ' ActiveChart.SetSourceData Source:=Range("Sheet2!Cells(208,354):Cells(219,354)")
7    ActiveChart.Axes(xlValue).MajorGridlines.Select
8    Application.WindowState = xlMaximized
9    ActiveChart.ApplyLayout (9)

10    Next i
11 End Sub

但是，第6行存在运行时错误，有人可以帮忙吗？

干杯

Answer 1

在问题行中，您需要设置对工作表和单元格范围的正确引用。因此，该代码行应如下所示：

ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range(Cells(208,354),Cells(219,354))