Как указать диапазон в do до цикла в VBA?

Question

Я пишу код, так что

Do Until Range("A1:A10")=5 

"" 

Loop 

Я хочу, чтобы определенный диапазон, чтобы все они имеют одни и те же цифры, но VBA продолжает говорить мне, что есть несоответствие типов. Кажется, что вы можете работать только с одной ячейкой за раз, или вам придется использовать функцию «И»? (Do до Range («A1») = 5 и Range («A2») = 5 и т. Д.). Но есть ли способ, чтобы цикл работал, пока определенный диапазон ячеек не удовлетворяет условию?

Answer 1

Я думаю, что вы ищете что-то вроде этого:

Dim rngUpdate As Range 

Set rngUpdate = Range("A1:A5") 
Do Until WorksheetFunction.CountIf(rngUpdate, 5) = rngUpdate.Cells.Count 
    'Your code goes here 
Loop 

Answer 2

Вы можете также использовать "для следующего", в вашем случае:

For i = 1 To 10 
    If Cells(i, 1) = "5" Then 
    Exit For ' when cell value is 5, it exits loop 

    Else 
    *do other code* 
    End if 

Next i