EXCELの最終行を得る方法でEnd(xlUp).Row、End(xlDown).Row以外の方法

LastRow = Cells(Rows.Count, 8).End(xlUp).Rowで
For i = 2 To LastRowでやってますが、
最終行に文字列でENDと入れてそこまでを最終行にしたいのですが、
うまい方法ありますか？

No.1 回答者： くんこば 回答日時： 2019/09/26 07:46

while文が一般的ですね。

untilも使えないことはない。
まぁ好みです。

この回答へのお礼

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

お礼日時：2019/09/26 19:02

No.2 ベストアンサー 回答者： rukaandkaito 回答日時： 2019/09/26 08:35

その場合ForではなくDoを使いましょう

i=2
Do Until Cells(i,8).Value = "END"
　処理
　i = i + 1
Loop
こんな感じでしょうか
自分はマスタ検索等の際には上記"END"を""にして、データ終端まで
ループさせています

この回答へのお礼

ありがとうございます。Doが速かったです。

お礼日時：2019/09/26 19:02

No.3 回答者： moto_koukousei 回答日時： 2019/09/26 16:28

> 最終行に文字列でENDと入れてそこまでを最終行

手入力あるいは別の何かで"END"の文字列が入ったセルがあるならば、MATCHでその行位置を求めてもいいように思います。

（End(xlUp).Row、End(xlDown).Row）以外の方法を求める理由はなんでしょうか。

＞　For i = 2 To LastRowでやってますが
何かの処理を２行目から順に下にやっていくのであれば、最終行（その次の行は何もない）のところで止める　No.1、No.2の回答が楽だと思います。

この回答へのお礼

１万件程度のデータなのにLastRowが85000とか大きな値になってします。のでちょっと時間かかるのでもっと速くならなかと思いました。Doで結構早かったのでDoにしようと思います。

お礼日時：2019/09/26 19:05