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