表示されているセルの最終行を取得したい

質問

.End(xlDown)でデータが入力されている最終行がわかりますが、
セルA1に1、セルA2に1、セルA3には、式が入っているが何も表示されていないとき
セルA2がアクティブセルになるようにVBAで簡単に記述できないですか?

回答No.1

tom04 · ベストアンサー

こんにちは！
質問のタイトル通りだとして・・・
安直な方法ですが、

Sub Sample1()
Dim i As Long
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(i, "A") <> "" Then Exit For
Next i
Cells(i, "A").Select
End Sub

※　この程度しか思いつきませんが、他に良い方法があればごめんなさいね。m（_ _）m