0

我正在写一个代码,所以

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

""

Loop

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

4

2 回答 2

0

我想你正在寻找这样的东西:

Dim rngUpdate As Range

Set rngUpdate = Range("A1:A5")
Do Until WorksheetFunction.CountIf(rngUpdate, 5) = rngUpdate.Cells.Count
    'Your code goes here
Loop
于 2013-08-08T21:25:34.600 回答
0

在您的情况下,您还可以使用“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
于 2013-08-09T07:38:07.347 回答