シート間の値の貼り付け。 スマートにしたい。
こんばんは。
エクセルのシート1の[d7]から
シート2の[最終行]からカウントした数分(下の場合はシート1[d7]の値をc列に3行分)貼り付けるには下記のコードでOKと伺ったのですが、
この作業を何度も繰り返しさせているうちに動作が重くなってしまったような気がするのでが、シート1の[b2](貼り付け時に日付)[b3](VLOOKUPの計算式が入っているので値のみ)[b4](時刻)の形式でシート2のそれぞれ、隣接するd,e,l列に3行づつ貼り付けたいのですが、
何か方法は、ありますでしょうか。(それぞれ貼り付けたい形式も異なります。)
n=3
Worksheets("Sheet1").Range("d7").Copy _
Destination:=Worksheets("Sheet2").Range("c65536").End(xlUp).Offset(1, 0).Resize(n, 1)
↓動作確認ができなくなってしまったので、試していないのですが、
上の式の値のみ貼り付け方法は下記でよいのでしょうか。
'値のみ貼り付け
Set WWR1 = Worksheets("Sheet1").Range("c7")
Set WWR2 = Worksheets("月度集計").Range("c65536").End(xlUp).Offset(1, 0).Resize(n, 1)
WWR2.Value = WWR1.Value
宜しくお願い致します。
お礼
ありがとうございました。