Приращение строки макроса Excel

Я пытаюсь скопировать диапазон ячеек в одном столбце и транспонировать их выше
как ряд.
Проблема, с которой я сталкиваюсь, заключается в том, чтобы попытаться увеличить строки(45:45), где каждая строка копируется, иначе все строки будут перезаписаны.
При запуске макроса я получаю синтаксическую ошибку в пункте назначения:= Range line

Range("A53:A63").Copy
Range("A52").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
    , Transpose:=True
Range("A53:A63").Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
Rows("52:52").Cut
Rows("45:45").Select
Destination:=Range("A" & Rows.Count).End(xlDown).Offset(1, 0)
Selection.Insert

1 ответ

  1. Хотя я не очень понимаю, что вы пытаетесь сделать, но, возможно, это помогает.

    Sub test()
    Range("A53:A63").Copy
    Range("A52").Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
    Range("A53:A63").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Rows("52:52").Copy
        Range("A1").End(xlDown).Offset(1, 0).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End Sub