最終セルの下のセルの左となりのセルの値を取得したいです

最近は本当にお世話になっております

A列には１から連番で数字が入っています。
で、B列の最終セルの下のセルを取得した後、隣のA列の数字を取得してメッセージボックスで「150です」とか出てくるような方法があればどなたか教えて頂きたいです。

Sub 取得()
Range("B1048576").End(xlUp).Offset(1).Select
Selection.End(xlToLeft).Select

このあとが続きません・・・・

お時間ある方いらっしゃったら、よろしくお願い致します。

No.1 ベストアンサー 回答者： soixante 回答日時： 2015/08/12 19:47

Sub 取得

Dim Suji As Long
Suji=Range(Rows.Count,"B").End(xlUp).Offset(1,0).Offset(0,-1).Value
MsgBox Suji & "です."

End Sub


Selectしなくても良い時は無駄にSelectしないほうがいいです。

この回答へのお礼

回答ありがとうございます！

お二方から回答頂きましたが 一番手としてなのでベストアンサーとさせていただきます。

Selectは無駄にしないほうがいい ？？
なんとなくわかるようなわからないような・・・
初心者の私にはピンとこないのですが、
私なりにもいろいろ調べてみます。

ホントありがとうございました。

お礼日時：2015/08/12 22:40

No.2 回答者： tom04 回答日時： 2015/08/12 20:26

こんばんは！

Sub Sample1()
MsgBox Cells(Rows.Count, "B").End(xlUp).Offset(1, -1) & "です。"
End Sub

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

この回答へのお礼

いつもご回答して頂きありがとうございます！感謝します。
今回もありがとうございます！

お礼日時：2015/08/12 22:33