一番下のセルに移動するには

質問

Excel2000ですが。
一つの列内で、複数のセルを選択状態にしている時のことです。
選択範囲内の一番下のセルのみを選択する方法を知りたいの
ですが(マウスのカーソルを用いる以外の方法です)。
A5からA30までが選択状態の時は、A30だけを選択することに
なります。

キー操作で行う方法とマクロで行う方法の両方を知りたいので
すが、どちらかだけでもけっこうです。
お願いします。

回答No.2

ja7awu · ベストアンサー

こんな感じで如何でしょうか。

Sub test()
Dim Rw As Long
Rw = Selection.Rows.Count
Selection.Resize(1, 1).Offset(Rw - 1).Select
End Sub

お礼

ありがとうございました。
うまくいきました。

回答No.5

sakenomo

すでに回答が出ていますが、別例ということで。

Sub test()
ActiveCell.Offset(Selection.Rows.Count - 1, 0).Select
End Sub

お礼

ありがとうございました。
うまくいきました。

回答No.4

ja7awu

No.3のimogasiさん

「一番下のセルのみを選択する方法を知りたい」ですよ。

そのコードですと、選択範囲は変わらないと思いますよ。

回答No.3

imogasi

（１）例えばＢ３：Ｄ１３を範囲指定したとき、左上隅のＢ３がアクチブに自動的になります。
ここでＳＨＩＦＴキーを押しながら、ＴＡＢキーを押すと
Ｄ１３がアクチブになります。サイクリック（回転）に見て、直前はＤ１３なんです。・・Ｃ１３－Ｄ１３－Ｂ３－Ｃ３・・で考えるのですが、ＴＡＢは右へ進め、ＳＨＩＦＴ＋ＴＡＢは逆方向の左へ進めるのですから、Ｂ３でＳＨＩＴ＋ＴＡＢはＤ１３へ行くわけです。
（２）マクロでは
Sub test01()
r = Selection.Rows.Count
c = Selection.Columns.Count
' MsgBox r & "," & c
Selection.Offset(r - 1, c - 1).Activate
End Sub
で右隅下をアクチブになりました。
範囲の四隅各々は、一語で指定出来そうな気もしますが
思い出せませんのでとり合えず。

お礼

ありがとうございました。
参考になりました。

回答No.1

dejiji-

セルが複数選択された状態でセルを選択するのは、Tabキーで出来ますが、この方法で移動では駄目なのでしょうか。キー一発でと言うことでしょうか。
Tabは下へ移動、Shift+Tabで上へ移動です。

お礼

ありがとうございました。
参考になりました。