Вставка строки над текущей строкой - PullRequest
0 голосов
/ 11 октября 2018

У меня очень простая проблема, но я новичок в VB и не могу понять, почему я получаю ошибки.

Я пытаюсь создать макрос, который копирует строку № 10 и вставляет ее вышетекущая активная строка.

Я искал несколько веб-страниц, но все, кажется, кодируют вещи по-разному, и я не могу понять понимание команд VBA с помощью анализа кодов.

Я продолжаю получать:

  1. «Ошибка метода вставки / копирования класса диапазона» и
  2. Ошибка, связанная с разъединением.

Я также заметил кое-что странное после запускакод более одного раза, я получаю изменяющиеся сообщения об ошибках и не уверен, что есть проблема с моей версией Excel.

Вот код, который я пытаюсь использовать:

Sub Insert_Row ()

Dim rng As Range
Dim act As Range

Set rng = ActiveCell.Rows
Set act = Rows("10:10")


Range(act).Copy

rng.Select

rng.Insert Shift:=xlDown

End Sub

...