Excel VBA質問箱 IV

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

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


6723 / 13644 ツリー ←次へ | 前へ→

【43520】データの最終行取得に関して さなえ 06/10/18(水) 17:43 質問[未読]
【43522】Re:データの最終行取得に関して Kein 06/10/18(水) 18:16 回答[未読]
【43524】Re:データの最終行取得に関して さなえ 06/10/18(水) 18:30 お礼[未読]

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

引用なし
パスワード
   初歩的な質問で申し訳ありませんが、教えて下さい。

シートの中のA列で最終行を取得したいと考えてい
ますが、どのように記述したら良いでしょうか。。。

単純に最終行を取得した際に、データ以外に罫線が
引かれていた場合には、その罫線が最終行とみなされて
しまいます。

罫線を無視してデータが入力されている行を最終行として
取得する場合は、どのような記述が良いのでしょうか。。。

よろしくお願いします。

【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

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

【43524】Re:データの最終行取得に関して
お礼  さなえ  - 06/10/18(水) 18:30 -

引用なし
パスワード
   私の勘違いでした。

できました。

ありがとうございました。

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

6723 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free