Вставка строки через макрос - 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

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы