excel 宏复制粘贴

Question

我有 2 个 sheet，sheet 1 个有一个包含总价公式的单元格。我想复制 sheet 1 到 sheet 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

另一个使用复制方法的vatiant

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

excel macro copy and paste