excel宏复制和粘贴

Question

我有2张纸，纸张1有一个总价格公式的单元格。我希望每次单击具有新价格总额的宏（更新按钮）时，将第1页上的单元格复制到第2页列G2。

我已经尝试过录制宏，但每当我点击更新按钮时，它会粘贴单元格，但带有REF！错误或值0。

任何人都可以帮助我。

感谢

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

Answer 1

这是最简单的答案：

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

Answer 2

没有副本的变体

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

另一个使用复制方法的空白

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