插入行以及复制和粘贴值

Question

我有一个“状态”类型的报告，该报告将各种来源的信息提取到单个工作表中。 我的最终目标是实质上保留每个条目的日志。 因此，我创建了一个宏，该宏将从Sheet8复制范围，在Sheet11上插入新行，然后将该行粘贴到Sheet11中。 此外，我添加了一行以删除excel选择。 我的问题是粘贴是粘贴公式，而不是值。 如何将Sheet8中单元格的值粘贴到Sheet11上？

Sub copyRowToBelow()
On Error GoTo Err_Execute
    Sheet8.Range("A2:L2").Copy
    Sheet11.Range("A2").Rows("2:2").Insert Shift:=xlDown
    Sheet8.Range("A2:L2").Select
    Application.CutCopyMode = False

Err_Execute:
    If Err.Number = 0 Then MsgBox "All have been copied!" Else _
    MsgBox Err.Description
End Sub

Answer 1

您可以先向下移动，然后通过将两行的值设置为相等来复制数据。

另外，您是说只向下移动一个单元格吗？ 不是那整行吗？ 我下面的代码将第二行下面的整个行向下移动。

Sub copyRowToBelow()
On Error GoTo Err_Execute
    Sheet11.Range("A2").Rows("2:2").EntireRow.Insert Shift:=xlDown
    Sheet11.Range("A3:L3").Value = Sheet8.Range("A2:L2").Value

Err_Execute:
    If Err.Number = 0 Then MsgBox "All have been copied!" Else _
    MsgBox Err.Description
End Sub