如何遍历列中的所有行

Question

我试图循环遍历B列中的每一行，并在每行中查找字符串“NO”。

的伪代码如下所示：

环路B列中的每一行

If "NO" is in any row within column B 

Display and alert box "Unpaid" 

END LOOP

此代码需要在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