エクセル ＶＢＡの質問です

質問

A B …
1１　
2　２
3　２
4２
5３
6２
7　３
8
・
・
・
上記の表があるとします。（Ａ列かＢ列どちらかに１～３のデータが入っています。行数はその時によって変わります。）
一番最後に入力されたセルの1つ下のセルをアクティブにする。としたいのです。
例では最後はB7にデータが入力されているので、B8をアクティブにする。というふうにしたいのです。
ネットで調べようとしたのですが、どう調べればいいのかすらわからなく困っています。
どうかご教授下さい。

回答No.1

van111 · ベストアンサー

一つ一つの行数を確認してから比較する作業をしています。

Sub test()
Dim Arow As Long, Brow As Long
Arow = Cells(65536, 1).End(xlUp).Row
Brow = Cells(65536, 2).End(xlUp).Row

If Arow < Brow Then
Cells(Brow, 2).Offset(1, 0).Select
ElseIf Arow > Brow Then
Cells(Arow, 1).Offset(1, 0).Select
End If
End Sub

お礼

ご教授ありがとうございます。
うまくできそうです。またよろしくお願いします。

回答No.3

imogasi

>一番最後に入力されたセルの1つ下のセルをアクティブにする。としたいのです。
質問の表現が不正確だろう。
「最後」というと、時間的な話だ。これを捉えるのは難しい。
Ａ列またはＢ列
またはどちらかの列で、
一番下のデータセルの直下セルのことではないのか。
そのどっちか。
後者なら
標準モジュールに
Sub test01()
Dim d
For j = 1 To 2
d = Cells(65536, j).End(xlUp).Row
If d > l Then l = d
Next j
MsgBox l
End Sub
上記は最下行なので、求めるものは＋１
ーーーー
セルを選択するなら
Sub test01()
Dim d
For j = 1 To 2
d = Cells(65536, j).End(xlUp).Row
If d > l Then
c = j
l = d
Cells(l, c).Select
End If
Next j
MsgBox l
Cells(l + 1, c).Select
End Sub

お礼

回答ありがとうございました。
また、よろしくお願いします。

回答No.2

watabe007

参考に
With ActiveSheet.Columns("A:B").Find(What:="*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
.Offset(1).Select
End With

お礼

今回は使いませんでしたが、今後の参考とさせていただきます。
ありがとうございました。