エクセルVBA データの追加

質問

VBA初心者です。いろいろ検索したのですが、うまく見つかりませんでした。

B2からF2までのデータを、B列の空欄セル（値が入っている最終行の次）に貼り付ける場合にはどうすればいいでしょうか。
例えば、B6までデータが入っていてる場合は、B7からF７までにB2からF2までのデータが値のみ入るという感じです。

よろしくお願い致します。

回答No.1

keithin · ベストアンサー

＞（値が入っている最終行の次）に貼り付ける

どこにでも出てきますが
sub macro1()
　range("B2:F2").copy destination:=range("B65536").end(xlup).offset(1)
end sub
などのように。

＞B2からF2までのデータが値のみ入る

マクロ以前、コピー貼り付けと値のみ貼り付けじゃまったく別の作業なので、ごっちゃにしちゃ困ります。

sub macro2()
　range("B65536").end(xlup).offset(1).resize(1, 5).value = range("B2:F2").value
end sub

お礼

ありがとうございます