首页 文章

excel宏复制和粘贴

提问于
浏览
-1

我有2张纸,纸张1有一个总价格公式的单元格 . 我希望每次单击具有新价格总额的宏(UPDATE按钮)时,将表单1上的单元格复制到表格2列G2 .

我已经尝试录制一个宏,但每当我点击更新按钮时,它会粘贴单元格但是有一个REF!错误或值0 .

谁能帮我 .

谢谢

range("b3").select
application.cutcopypaste=false
selection.copy
sheets("sheets2").select
range("b4").select
selection.insert shift:=xldown

2 回答

  • 1

    这是最简单的答案:

    Sheets("Source Sheet Name").Range("B3").Copy
    Sheets("Destination Sheet Name").Range("G" & Range("G" & Rows.Count).End(xlUp).Row + 1).Paste
    
  • 0

    没有副本的变体

    Sub test()
        Sheets("Sheet2").Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Value = Sheets("Sheet1").Range("B3").Value
    End Sub
    

    变体与复制方法

    Sub test2()
        Sheets("Sheet1").Range("B3").Copy Sheets("Sheet2").Cells(Rows.Count, 7).End(xlUp).Offset(1, 0)
    End Sub
    

    另一个使用复制方法的vatiant

    Sub test3()
    Sheets("Sheet1").[B3].Copy
    Sheets("Sheet2").Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End Sub
    

相关问题