質問: X To Y でできてDo while A 比較演算子 B でできないこととかめんどうなことってありますか?
回答: 行番号の小さい方から大きい方向への移動は共に問題なさそう、ですが。 逆の場合Step -1のような場合は Do While で1行目を拾う方法は?っと一瞬思いますが・・・何か解決方法はあると思いますが・・・ こんなケースです 2行目まではOKですが、1行目まで移動させると「<>0」とエラーが出ますね。 このあたりが、どうでしょう。 いづれにしてもマイナス移動に問題が有るような感じがします。 Sub 特定数字DoWhileマイナスステップ() Dim i As Integer i = Cells(Rows.Count, 2).End(xlUp).Row Do While Cells(i, 2).Row <> 1 Cells(i, 2).Activate If Cells(i, 2).Value = 5 Then MsgBox i ' Exit Sub End If i = i - 1 Loop End Sub