Здравствуйте. Помогите написать макрос для такой задачи: - между 8 и 9 строк добавить строку с формулами от 8-й строки, при этом нижняя часть таблицы должна смещаться вниз. Прилагаю файл.
Здравствуйте. Помогите написать макрос для такой задачи: - между 8 и 9 строк добавить строку с формулами от 8-й строки, при этом нижняя часть таблицы должна смещаться вниз. Прилагаю файл.den45444
Можно и без макроса: Выделяем полностью 8-ю строку (Можно нажать Shift + пробел) Нажимаем Ctrl + C Нажимаем стрелку вниз Нажимаем Ctrl + + Все А макрос вот: [vba]
Код
Sub Макрос3() Rows("8:8").Copy Range("A9").Insert Shift:=xlDown End Sub
[/vba]
Можно и без макроса: Выделяем полностью 8-ю строку (Можно нажать Shift + пробел) Нажимаем Ctrl + C Нажимаем стрелку вниз Нажимаем Ctrl + + Все А макрос вот: [vba]
Код
Sub Макрос3() Rows("8:8").Copy Range("A9").Insert Shift:=xlDown End Sub
SLAVICK, Благодарю за скорый ответ. А как можно вставлять строку над 9-й строкой? Или лучше, чтобы программа нашла ячейку с надписью "Итого(этап№1):" и выше нее вставил строку. Такое вообще можно?
SLAVICK, Благодарю за скорый ответ. А как можно вставлять строку над 9-й строкой? Или лучше, чтобы программа нашла ячейку с надписью "Итого(этап№1):" и выше нее вставил строку. Такое вообще можно?den45444
SLAVICK, благодарю. Rows("8:8").Copy - копирует 8-ю строку, если я правильно понял. А как прописать, чтобы копировалась та строка, которая находится выше строки с надписью "Итого (этап №1):" ?
SLAVICK, благодарю. Rows("8:8").Copy - копирует 8-ю строку, если я правильно понял. А как прописать, чтобы копировалась та строка, которая находится выше строки с надписью "Итого (этап №1):" ?den45444
Sub Макрос3() Dim r As Range Set r = Columns("A:A").Find(What:="Итого (этап №1):", After:=Cells(1, 1), LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False) r.Offset(-1, 0).EntireRow.Copy r.Insert Shift:=xlDown End Sub
[/vba]
Вот: [vba]
Код
Sub Макрос3() Dim r As Range Set r = Columns("A:A").Find(What:="Итого (этап №1):", After:=Cells(1, 1), LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False) r.Offset(-1, 0).EntireRow.Copy r.Insert Shift:=xlDown End Sub
SLAVICK, работает благодарю. Нда.. теперь появился аппетит Теперь хочется добавить макрос удалить таким же методом строку находящуюся над строкой "Итого (этап №1):".
SLAVICK, работает благодарю. Нда.. теперь появился аппетит Теперь хочется добавить макрос удалить таким же методом строку находящуюся над строкой "Итого (этап №1):".den45444
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
благодарю. 
: 
