dポイントプレゼントキャンペーン実施中!

一番下のあたいのあるセル(A56)から値のあるなしに関わらず一番上のセル(A1)まで選択するにはどのように書けばいいですか?
よろしくお願いします。

A 回答 (1件)

Sub RngSelect()


Dim Lastrow As Long
Lastrow=Cells(Rows.Count, "A").End(xlUp).Row
Range("A1").Resize(Lastrow,1).Select
Endsub
    • good
    • 0
この回答へのお礼

ご回答頂きありがとうございます。
大変助かりました!

お礼日時:2015/02/04 06:55

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!