如何在 VBA 的 do until 循环中指定一个范围？答案

【问题标题】：How do I specify a range in the do until loop in VBA?如何在 VBA 的 do until 循环中指定一个范围？
【发布时间】：2013-08-10 18:35:47
【问题描述】：

我正在写代码，所以

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

""

Loop

我希望某个范围都具有相同的数字，但 VBA 不断告诉我存在类型不匹配。似乎您一次只能使用一个单元格，或者您必须使用“与”功能？（直到 Range("A1")=5 And Range("A2")=5 等）但是有没有办法让循环运行直到某个范围的单元格满足条件？

【问题讨论】：

标签： vba loops

【解决方案1】：

我认为您正在寻找这样的东西：

Dim rngUpdate As Range

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

【讨论】：

【解决方案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

【讨论】：