查找损坏的回路控制测试

Question

代码：

Row = 1
LastRow = {some number}
Rng = "A" & Row ":" & "A" & LastRow
Do While Find_String(Rng,"Look for Something",Ans_Row) Then
   ...
   Row = Row + 1
   Rng = "A" & Row ":" & "A" & LastRow
Loop

如果您超过了最后一行，Find_String”应返回False，并且循环应停止。

我刚刚发现，如果您超过了最后一个并获得了类似的范围

"A5:A4"

Find_String不再从循环中返回。过去。

要使其正常运行，您必须添加的测试是

If Row > LastRow Then Exit Do

Answer 1

更正

应该说，即使“范围”至少在最近才用于返回FALSE，“ Find_String”仍继续返回TRUE。不再了。