如何遍歷列中的所有行

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