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

如何遍历列中的所有行

1 个答案: