Как пройти через все строки в столбце

Question

Я пытаюсь пропустить каждую строку в столбце B и искать строку «НЕТ» в каждой строке.

Псевдокод выглядит следующим образом:

петли каждая строка в колонке 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