[[20180301182335]]　『表の最終行を取得』（５４）　ページの最後に飛ぶ

『表の最終行を取得』（５４）

表の範囲を取得したいのですが、最終行が空白の場合があり、値が入った最終行の取得方法しかわからず困っています。
A1から書式が入っている最終行まで、ということはできませんか？
usedrangeだと、表の外（別の列）にあるコマンドボタンとかも選択されてしまいます。ご回答お待ちしています。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

スマホからなので試してないですが、CurrentRegionプロパティはどうですか？
（もこな２） 2018/03/01(木) 19:17

もこな２様
ありがとうございます。試してみましたが、usedrangeを使用した時と同じ結果になりました。

（５４） 2018/03/01(木) 19:23

 範囲を絞って
r＝usedrange.columns(2).rows.count
とかね
（SoulMan） 2018/03/01(木) 20:50

 すみません
帰ってから気になって試したらちょっと違いますね　(;^_^A
その書式が続いているのなら↓こっちの方が近いかもしれませんね
どうでしょうか？
Dim r As Long
r = Range("a:a").Find("", Range("a" & Rows.Count).End(xlUp), _
                        xlValues, xlPart, xlByColumns, xlNext, False, False, True).Row - 1
v(=∩_∩=)v
（SoulMan） 2018/03/01(木) 23:21

コメント返信：

[ 一覧(最新更新順) ]

[[20180301182335]] 『表の最終行を取得』（５４） ページの最後に飛ぶ

[[20180301182335]]　『表の最終行を取得』（５４）　ページの最後に飛ぶ