Вставить строку в таблицу (по материалам прошлой темы)

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

Вставить строку в таблицу (по материалам прошлой темы) (Макросы/Sub)

Лорик

Дата: Четверг, 02.06.2016, 08:09 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 109

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

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

Excel 2010

Всем доброго дня!
Обращаюсь снова за помощью к гуру VBA.
При содействии Ветеранов форума "изобразила" макрос вставки строки (по шаблону) в таблицу. Подскажите, как прописать (в макросе) условие вставки определенного количества строк (шаблонов), исходя из значения указанного в нужной ячейке. Условия в файле (сохранен в формате 97-2003).

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

Ответить

Pelena

Дата: Четверг, 02.06.2016, 08:22 | Сообщение № 2

Группа: Админы

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

Сообщений: 19603

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Первое, что приходит на ум: добавить цикл.

UPD. Или без цикла
[vba]

Код

Sub Добавить()
    Application.ScreenUpdating = False
        [Образец].Copy:
        [последняя].Resize([a1]).Insert Shift:=xlDown
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

[/vba]