поиск пустой ячейки в столбце и вставка строки над ней

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

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

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

ttv

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

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

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

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

Excel 2013

добрый день!
как заставить макрос в excel найти первую пустую ячейку в столбце А (после всех заполненных), вставить пустую строку НАД ней и скопировать туда формулы из предыдущей строки? файл прилагаю (та ячейка с которой всегда должен начинаться макрос - залита красным).
В макросах и VBA вообще не соображаю, код написан "методом тыка", все работает, кроме одного - оператору вручную надо выделять ячейку залитую красным - и только потом запускать макрос. Но если будет выделена любая другая ячейка и оператор случайно запустит макрос - это приведет к неправильным расчетам. Хотелось бы исключить этот фактор риска.
Буду ОЧЕНЬ благодарна за ответы!

К сообщению приложен файл: 001.xlsm (24.3 Kb)

Сообщение отредактировал ttv - Вторник, 24.10.2017, 10:08

Ответить

Pelena

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

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

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

Сообщений: 19179

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Как вариант
[vba]

Код

Sub Макрос3()
    Set lastcell = Cells(Rows.Count, 1).End(xlUp)
    With lastcell
        .Resize(1, 18).Copy .Offset(1)
        .Offset(1) = .Value + 1
        .Offset(1, 1).Resize(1, 3).ClearContents
        .Offset(1, 8).Resize(1, 6).ClearContents
    End With
    Application.CutCopyMode = False
End Sub

[/vba]