如何在VBA的do until循環中指定范圍？

Question

我在寫代碼，這樣

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

""

Loop

我希望某個范圍的數字都相同，但是VBA不斷告訴我類型不匹配。 似乎您一次只能使用一個單元格，或者必須使用“ And”功能？ （直到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 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