Страницы: 1
RSS
Динамическое определение границ данных для создания сводной таблицы
 
Уважаемые форумчане, доброго времени суток!
Создал небольшой макрос для создания сводной таблицы, но столкнулся с проблемой.
Подскажите пожалуйста, как в макросе прописать не жесткие границы данных из которых будет создана умная таблица, а динамические. Начальная граница данных всегда A1, а конечная это строка в столбце L (последний столбец всегда L) которая последняя заполненная в столбце A. То есть в моем примере (во вложении) границы будущей таблицы должны быть A1:L15.
На текущий момент мой макрос имеет следующий вид:
Код
Sub Table()
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$L$15"), , xlYes).Name _
= "УмнаяТаблица1"
End Sub

Заранее спасибо!

Кто ясно мыслит, тот ясно излагает.
 
Здравствуйте.
Код
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$L$" & Cells(Rows.Count,1).End(xlUp).Row), , xlYes).Name _
= "УмнаяТаблица1"
Кому решение нужно - тот пример и рисует.
 
Пытливый, спасибо!
Кто ясно мыслит, тот ясно излагает.
Страницы: 1
Наверх