Как скопировать и вставить определенный диапазон в следующее пустое значение этого диапазона? EG: Скопируйте A4: A12 и вставьте в F4: F12 - PullRequest
0 голосов
/ 10 октября 2019

Я пытаюсь автоматизировать макрос копирования / вставки. Я пытаюсь скопировать значения в диапазоне от C4: C12 и вставить их в следующий пустой столбец в том же диапазоне строк. Вот код, который у меня есть на данный момент:

Sub CopyPaste()
    Dim range_to_copy As Range
    Dim range_to_paste As Range

    Set range_to_copy = Application.Range("C4:C12")
    Set range_to_paste = 1 + Cells(4, Columns.Count).End(xlToLeft).column


        range_to_copy.Copy
        range_to_paste.PasteSpecial xlPasteValues


        Application.CutCopyMode = False
        Application.ScreenUpdating = True

End Sub

Я продолжаю получать объектную ошибку, и я не понимаю, где я иду не так.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...