エクセルVBAで、値が入っている最終行の、右隣の値をコピーして、別のセルに貼り付けるコード

A列の、値が入っている最終行の、右隣（B列）の値をコピーして、D2セルに貼付けるコードを教えていただけますでしょうか。

※A列の値は、別のシートの結果を貼付るため、5行目までだったり、20行目までだったりと都度変動します

※B列の値は固定です

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

No.1 ベストアンサー 回答者： tom04 回答日時： 2018/01/30 17:02

こんにちは！

Sub Sample1()
Range("D2") = Cells(Rows.Count, "A").End(xlUp).Offset(, 1)
End Sub

くらいで大丈夫だと思います。m(_ _)m

この回答へのお礼

早々のご回答ありがとうございます！できました！
大変助かりましたm(_ _)m

お礼日時：2018/01/30 18:05