Преобразование дипазона ячеек в таблицу, при условии изменяю

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование дипазона ячеек в таблицу, при условии изменяю (Макросы Sub)

igrtsk

Дата: Вторник, 03.12.2013, 10:13 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 314

Репутация: 50 ±

Замечаний: 0% ±

Excel 2016

Добрый день!
Прошу помощи:
Есть диапазон ячеек, в котором количество столбцов постоянно, но количество строк является переменной.
Как с помощью макроса преобразовать такой диапазон ячеек в форматированную таблицу?

К сообщению приложен файл: 3096137.xls (64.5 Kb)

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

_Boroda_

Дата: Вторник, 03.12.2013, 10:24 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Что-то слишком просто. В чем подвох?
[vba]

Код

Sub ttt()
r0_ = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A2:Q" & r0_), , xlYes).Name = "tt"
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

igrtsk

Дата: Вторник, 03.12.2013, 10:49 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 314

Репутация: 50 ±

Замечаний: 0% ±

Excel 2016

Спасибо за помощь!
Подвоха нет. Ликбез для начинающих

Никак не мог добиться автоматического нахождения последней строки таблицы.
При записи макроса макрорекордером всегда получался фиксированный диапазон, а не плавающий

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

Страница 1 из 1
1