[[20120509091648]]　『マクロで最終行の取得』（YMO）　ページの最後に飛ぶ

『マクロで最終行の取得』（YMO）

A1からA9まで計算式が入っています。A7からA9はブランク""です。
数値が表示されている最終行を取得する構文はどの様になるのでしょうか？
「6」を取得したいのですが、現在下記で取得すると「9」になってしまいます。
宜しくお願いします。（2010、XP）

  lastRow = Cells(Rows.Count, "A").End(xlUp).Row

 こんなことなんかな？(ROUGE)
　
Sub test()
Dim i As Long
Dim tbl
tbl = Range("A:A").Value
For i = UBound(tbl, 1) To 1 Step -1
    If tbl(i, 1) <> "" Then Exit For
Next
MsgBox i & "行目"
End Sub

 式による空白を空白として扱う場合の定番コードの１つ。

 Sub Sample()
    MsgBox Columns("A:A").Find(What:="*", After:=Cells(Rows.Count, "A"), LookIn:=xlValues, _
        LookAt:=xlPart, SearchDirection:=xlPrevious).Row

 End Sub

 (ぶらっと)

(ROUGE)さん(ぶらっと)さん早速の回答有難う御座います。
どちらも取得できました。
感謝申し上げます。
（YMO）

コメント返信：

[ 一覧(最新更新順) ]

[[20120509091648]] 『マクロで最終行の取得』（YMO） ページの最後に飛ぶ

[[20120509091648]]　『マクロで最終行の取得』（YMO）　ページの最後に飛ぶ