PasteSpecial 仅值

Question

我想将一系列单元格复制粘贴到目标位置 sheet，但只是它们的值，而不是格式。不幸的是，我的代码也粘贴了格式。我为此提供了代码行。（我知道如何粘贴特殊值，但如果可能的话，我想将此方法应用于这种复制粘贴方法。通常，我使用不同的复制粘贴方法，为此我知道如何粘贴特殊值，但为此时间我想保持宏的长度尽可能小）。

ws1.Range("C2:C" & lastrow2).Copy ws2.Range("A2")

Answer 1

会推荐：

ws2.Range("A2:A" & lastrow2).Value = ws1.Range("C2:C" & lastrow2).Value

Answer 2

尝试直接价值转移。

with ws1.Range("C2:C" & lastrow2)
     ws2.Range("A2").resize(.rows.count, .columns.count) = .value
end with

'alternately,
ws2.Range("A2").resize(ws1.Range("C2:C" & lastrow2).rows.count, ws1.Range("C2:C" & lastrow2).columns.count) = ws1.Range("C2:C" & lastrow2).value

PasteSpecial 仅值

PasteSpecial only values

excel

vba

copy-paste