シート内の最終書き込み行を取得したい

質問

シート内の最終書き込み行を取得したいのですがどうすればよいのでしょうか？

次のようにしてExcelVBAで最終行を取り出しています。
Workbooks(FileName).Sheets(SheetName).UsedRange.Rows.Count
' FileName、SheetNameは固有の名称です
これですと、セルの属性定義をしたところも含まれます。
つまり、１０００行まで罫線を引いていたり、行の高さを指定していたりしたら１０００が返ってきます。
属性定義の行は無視して、値をセットしてある行の最終行を知りたいのです。

よろしくお願いいたします。

回答No.1

imogasi · ベストアンサー

良くやる・必要がある例なので、自分でテストして勉強すること。
Sub test01()
d = Range("A65536").End(xlUp).Row
MsgBox d
End Sub
で
文字数字データの最終行より下の行へ
書式設定、罫線、コメントの挿入などししても、影響を受けないようだ。
関数式・数式は結果が空白になる式でも入れると影響する。
外になにか影響しそうなものが考えられるかやってみて。
ＵｓedRange
CurrentRegion
End(xlｌＤｏｗｎ)
などが関連する話題だと思う。

お礼

ありがとうございました