VBA 最後に編集したデータにジャンプ

質問

VBAで最後に編集したデータがあるセルに常にカーソルを合わせたいと思って
ネットで調べたのですが、なかなかいいのが見つからなくて教えていただきたいです。
ショートカットで shift + F5もあるようですが、これだと何かしらの操作をしたら
(セルにポインタを合わせる、セルを空白にするなど)でもその場所に飛んでしまいますが、
そうではなくブックを開いたとき、下の例ならつねにデータが最後である「そ」のセル、
次回「たちつてと」と書けば今度は「と」の右隣にポインタを合わせたいVBAコードが欲しいです。

あ　い　う　え　お
か　き　く　け　こ
さ　し　す　せ　そ

Sub Auto_Open()
With
End With
End Sub

ROWの場合だと
こういうページを見つけたのですが、
http://officetanaka.net/excel/vba/tips/tips130.htm

ROW をColumns に変えても上手くいきませんでした。

回答No.9

kkkkkm · ベストアンサー

kkkkkmです。

その後あれこれ試していたら、一度書式設定でたとえば罫線とかを設定して、その後その設定を解除しても使用済みとして認識されてしまいました。2行下の行に何もない場合、データ行の下2行を削除して試してみてください。

もしくは、先に紹介したページの最後の
<S6> 書式付きセルを除外する
の項目を参照してコードを変更してください。
No5のコードだと変更しやすいと思います。

補足

削除すればいけました!!! 何かしらのデータが認識されていたかもしれません。

回答No.2

kkkkkm

ThisWorkbookモジュールに以下のようなコードでいかがでしょう

Private Sub Workbook_Open()
With ActiveSheet
.Cells(.UsedRange.Row + .UsedRange.Rows.Count - 1, .UsedRange.Column + .UsedRange.Columns.Count - 1).Select
End With
End Sub

お礼

回答有難うございます。

回答No.1

mt2008

やりたいのはこういう事でしょうか？
＃変数の宣言や、シートの指定は省略しています。

Sub test()
　　nRow = Range("A1").End(xlDown).Row
　　nCol = Range("A1").End(xlToRight).Column + 1
　　Cells(nRow, nCol).Select
End Sub

補足

早速の回答、朝から有難うございます。
このマクロを実行してみましたがなぜかC2にジャンプしてしまいました。
それとブックを開いたら自動実行させたいです。
Auto_Open()というのが必要ですよね？