PasteSpecial只有值

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

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