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