插入行和复制和粘贴值-Java 学习之路

我有一个"status"类型的报告，可以将各种来源的报告导入到单个工作表中 . 我的最终目标是基本保留每个条目的日志 . 所以我创建了一个宏，它将从Sheet8复制范围，在Sheet11上插入一个新行，然后将该行粘贴到Sheet11中 . 另外，我添加了一行来删除excel选择 . 我的问题是粘贴是粘贴公式，而不是值 . How do have it paste the values of the cells in Sheet8 onto 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

1 回答

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

另外，你的意思是只将一个单元格移位吗？不是那整行？我的代码下面将第2行下方的整行向下移动 .

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

回复于 2024-04-28T06:01:24+08:00

插入行和复制和粘贴值

1 回答

相关问题