Вставка строки через макрос - VBA
Формулировка задачи:
Добрый день.
Пытаюсь вставлять строку через макрос.
Мне нужно, чтобы происходила вставка строки Rows("1:1") без затирания уже существующей строки.
А у меня получается затирать существующую строку (при этом вставляет правильные данные) или выдает ошибку (вставляет как дополнительную строку).
при таком варианте происходит вставка правильного значения, но при этом затирается существующая строка.
при таком варианте происходит вставка неправильного значения (выдает #ссылка!), строки не затирается (добавляется новая строка).
Помогите разобраться, что я делаю не так?
Решение задачи: «Вставка строки через макрос»
textual
Листинг программы
Sub Макрос1_1() r = [F5] ActiveSheet.Rows(r).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A1:D1").Copy Range("A" & r).Resize(1, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub