使用新工作表中的新数据更新数据

Question

我使用宏复制技术将数据从一个工作表复制到主工作表。当我查看它具有的代码时：

Sub UPDATE2()
'
' UPDATE2 Macro
'

'
    Range("B2:B10").Select
    Selection.Copy
    Sheets("PAC Summary").Select
    Range("Z13:Z21").Select
    Selection.Insert SHIFT:=xlDown
    Sheets("RTF").Select
    Range("F16").Select
End Sub

如何更改此行Selection.Insert SHIFT:=xlDown，以便在添加新值时更新的值不会附加为新记录。我只想更新价值。

Answer 1

如果您使用宏，则不需要所有选择内容。您可以通过以下代码获得相同的内容：

Sheets("HereTheNameOfSourceSheet").Range("B2:B10").Copy Destination:=Sheets("PAC Summary").Range("Z13:Z21")

如果在启动宏时确定源表是活动的，则可以缩短行：

Range("B2:B10").Copy Destination:=Sheets("PAC Summary").Range("Z13:Z21")