PasteSpecial only values

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