线插入错误

Question

仍在学习Excel，如果这是一个简单的解决方案，请道歉。

我尝试在底行上方插入12行，从单独的工作表中复制范围，将范围粘贴到新行中，然后在新行中选择C1的相对单元格作为活动单元格。

我在这里遇到两个问题：第一个问题是它根本不做任何事情，第二个问题似乎是我无法使用我的最后一行功能。我使用宏记录器来获取我想要做的基线，然后对其进行编辑以适应。

StringBuilder

Answer 1

这是你正在尝试的（ UNTESTED ）？

With Sheet1 '<~~ Sheet where you want to insert
    LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row

    '~~> Insert 12 blank rows above the last row
    For i = 1 To 12
        .Rows(LastRow).EntireRow.Insert Shift:=xlDown
    Next i

    '~~> Copy and paste
    Sheets("Sheet").Range("A1:U2").Copy .Range("C" & LastRow)
End With