PasteSpecial只有值

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

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

会推荐:

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

尝试直接的价值转移。

 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