excel - 如何遍历列中的所有行

Question

我正在尝试遍历 B 列中的每一行并在每一行中查找字符串“NO”。

伪代码如下：

循环B列中的每一行

 If "NO" is in any row within column B

 Display and alert box "Unpaid"

结束循环

此代码需要在 VBA 中，任何帮助将不胜感激。

Answer 1

我怀疑这不是您想要的，但这是您可以遍历列中的行的方式。这将循环列中的每一行。在 Excel 2003 中这是 65536 行，而在 2007+ 中是 1048576 行，因此执行起来会非常缓慢。如果您需要，您当然可以修改它以仅在该列中使用的范围内工作。

此外，MsgBox它不会给您任何编辑工作表的机会，也不会为您提供有关哪些单元格受到影响的任何信息。如果需要，您将需要修改此代码以执行这些操作。

Sub Test()
Dim col as Range: Set col = Range("B:B")
Dim r as Range

For each r in col.Rows
    If r = "NO" Then msgbox "Unpaid", vbInformation
Next

End Sub