VBA. Как добавить сразу 100 строк в умную таблицу. не поштучно

tod2020 Пользователь Сообщений: 262 Регистрация: 10.05.2017	#1 28.06.2017 21:38:13 VBA. Как добавить сразу 100 строк в умную таблицу. не поштучно Прикрепленные файлы 2017.06.28-Файл_таблица.xlsm (13.25 КБ) Изменено: tod2020 - 29.06.2017 10:01:05

Karataev

Пользователь

Сообщений: 2311 Регистрация: 23.10.2014

28.06.2017 21:45:23

Код

Sub Добавить_строки()
    Dim objListobject As ListObject
    Set objListobject = ActiveSheet.ListObjects(1)
    objListobject.Resize objListobject.Range.Resize(objListobject.Range.Rows.Count + 100)
End Sub

gling

Пользователь

Сообщений: 4967 Регистрация: 01.01.1970

28.06.2017 21:58:34

Цитата
tod2020 написал: не поштучно

1. В А1 вписать любой знак--выделить А1:А100--копировать--выделить ячейку ниже умной таблицы--вставить.
2. Зацепить за правый нижний угол умной таблицы и тянуть вних на 100 строк.
3. Выделить ячейку таблицы--вкладка Конструктор--Размер таблицы--Вписать нужные диапазоны.

Sanja Модератор Сообщений: 19616 Регистрация: 10.01.2013	#4 28.06.2017 22:34:43 https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables Согласие есть продукт при полном непротивлении сторон

tod2020 Пользователь Сообщений: 262 Регистрация: 10.05.2017	#5 16.07.2017 18:51:39 Да, Спасибо, всё получилось у меня там Изменено: tod2020 - 16.07.2017 18:51:54

Читают тему