Question

我正在编写代码，所以

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

""

Loop

我希望某个范围都具有相同的数字，但VBA继续告诉我类型不匹配。您似乎一次只能处理一个单元格，或者您必须使用“And”功能？（直到范围（“A1”）= 5和范围（“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 next”：

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

如何在VBA中的do until循环中指定范围？

2 个答案: