Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38348 / 76732

←次へ　｜　前へ→


	【43522】Re:データの最終行取得に関して

Kein - 06/10/18(水) 18:16 -


	引用なし

	パスワード

どんなコードでしょーか ? 一般的な Range("A65536").End(xlUp) を使うと、
罫線は無視してデータの入力されている最終行を取得できるはずですが・・。
ただし、罫線の範囲まで数式を入力していれば、そこを最終行とみなします。
もしその数式が =IF(?="","",?) というように、空白セルを参照したときに
"" を表示するようなものの場合で、罫線に近いところのセルは "" が連続
して表示されているとき、"" 以外の値がある最終の行を取得したい、
ということなら

Dim GetR As Long

GetR = Range("A:A").Find("*", , xlValues, , , xlPrevious).Row

などとすれば出来ますが。

2 hits

▼

【43520】データの最終行取得に関して さなえ 06/10/18(水) 17:43