マクロ 入力位置の表示 oguno

質問

初心者です宜しくお願いいたします。

●エクセル2002を使用しています。
●カーソルがどこに置かれていても、未入力行を画面の最上段にスクロールさせ、その行のB列にカーソルを持ってきたい。
------------

「例」
●状態
・6行目から5000行までに入力する表を作成してあります。
・今、6行目から150行までデータが入力済です。
・151行以下は未入力です。

●行いたい事
この状態で、下記の事を行いたいのでご指導お願い致します。
・カーソルがどこに置かれていても、151行目を画面の最上段にスクロールさせたい。
・B151にカーソルを移動したい。

回答No.2

ham_kamo · ベストアンサー

こんにちは。また回答させていただきます。

単にＢ列の最終行に移動したいのであれば、Ctrlを押したままた↓キーを押せばいいのすが、マクロでやるのであれば、

Sub GotoEnd()
　Application.Goto Cells(Rows.Count, 2).End(xlUp) + 1
End Sub

でいけると思います。

お礼

色々な質問しましたにもかかわらず、毎回懇切丁寧なご指導、ありがとうございました。
思い通りの状態に出来ました。

回答No.1

noname#31387

こんなことですか？
Gotoをヘルプで見てください。

Sub Test()
Dim Lrow As Long
With Worksheets("Sheet1")
　　　Lrow = .Range("B" & CStr(Rows.Count)).End(xlUp).Row
　　　Application.Goto Reference:=.Range("A" & CStr(Lrow)), _
　　　　　　　　　　　　　　　　　　　　　　　　　scroll:=True
End With
ActiveCell.Offset(1, 1).Select
End Sub

お礼

ありがとうございました。
思い通りの状態になりました。