仅限PasteSpecial值

Question

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

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