Excel VBA-将图表系列移至表格末尾

Question

我需要以下代码的帮助：

ThisWorkbook.Worksheets("Overall Performance").Activate
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SetSourceData Source:=Range("$B$8:$BI$11")

我的表格如下：

我试图将代码修改为ActiveChart.SetSourceData Source:=Range("$B$8:$BI$11" & LastRow)，但它却无济于事。

如何修改此代码以自动选择表中所有丢失的数据？谢谢

Answer 1

好消息，我设法通过使用CurrentRegion属性找到了查询的解决方案（感谢Pᴇʜ改进了我的代码）。希望这可以帮助每个面临相同问题的人。

ThisWorkbook.Worksheets("Overall Performance").Activate
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SetSourceData Source:=Range("$B$8:$BI$11").CurrentRegion

Answer 2

使用

ActiveChart.SetSourceData Source:=Range("$B$8:$BI$" & LastRow)

我假设LastRow持有最后一个相关行的行索引

您可以如下设置LastRow：

LastRow = Cells(Rows.Count, 2).End(xlup).Row