使用范围，如何将 .COPY DESTINATION 粘贴为值

我有以下代码，可以很好地将整个单元格复制到新的目的地。

Dim ws As Worksheet, rng As Range

Set ws = Sheets("Duplicates")
Set rng = ws.Range("A2")

rng.Copy Destination:=Range("A2:A" & Range("G" & Rows.Count).End(xlUp).Row)

1. 是否有可能使这种应对paste special.
2. 还是我 需要使用两个范围将复制/粘贴分成两行 物体？

EDIT:

是的，我们得出的结论是，您不能将特殊粘贴与副本放在同一行。我还发现你可能不希望这样做。

如果您从记录 1 复制公式并将其粘贴到所有记录中，如下所示：VALUES，您将获得复制下来的第一条记录的公式值。

这不是我想要的。因此，您必须将公式作为公式复制到所有记录，然后复制这些公式并粘贴为值。

Dim ws As Worksheet, rng As Range
Set ws = Sheets("Duplicates")

设置第一个范围（带有公式的单个单元格）并根据 Col 将内容复制/粘贴到电子表格的底部G:

Set rng = ws.Range("A2")
rng.Copy Destination:=Range("A2:A" & Range("G" & Rows.Count).End(xlUp).Row)

从第二行向下选择新粘贴的公式。复制它们。然后将内容作为值粘贴到同一位置。

Set rng = ws.Range("A3:A" & Range("G" & Rows.Count).End(xlUp).Row)
rng.Copy
rng.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False 

或者，您可以只分配范围值，而不使用复制和粘贴：

Set r1 = Range("D1", "D7")
Set r2 = Range("E1", "E7")

r2.Value = r1.Value ' copies current values from one range to another

完成此分配后，即使 r1 有 forumlas，r2 范围也将具有值而不是公式。

在你的情况下，也许：

rng.Value = rng.Value

（一旦您将 rng 设置为您所注意到的正确大小）