Если условие для цикла

Question

Sub NewRefesh() 
    If Not Range("X2") = "COMPLETE" Or Range("X2") = "CANCELLED" Then 
     Range("X2").Select 
     ActiveCell.FormulaR1C1 = "=GetOrderStatus(RC[1])" 
    End If 
End Sub 

Вышеприведенный код предназначен только для X2, но я хочу сделать это до X52.

(Ex: Следующая проверка в Х3 = ПОЛНЫЙ»или Range ("X3") = "ОТМЕНА" Тогда Range ("X3".) Выберите ActiveCell.FormulaR1C1 = "= GetOrderStatus (RC [1])" и делать действия, следующий Х4 и так далее

Answer 1

нумерации использование строк/цв

х номер колонки 24

for i = 2 to 52 
If Not cells(i,24) = "COMPLETE" Or cells(i,24) = "CANCELLED" Then 
     Range(i,24).Select 
     Whatever you want done......... 
    End If 
Next i 

Answer 2

Я думаю, что в вашем посте вы имели в виду ваши критерии быть:

1. Не Range ("X2") = "COMPLETE" >> можно заменить также с Range ("X2") <> "COMPLETE"
2. Не Range ("X2") = "ОТМЕНА" >> можно заменить также с Range («X2») <> «ОТМЕНА»

Примечание: лучше держаться подальше от Select и ActiveCell, вместо того, чтобы использовать ссылки Range с. В своем коде вы кода непосредственно использовать Range("X" & i).FormulaR1C1

Код

Option Explicit 

Sub NewRefesh() 

    Dim i As Long 

    ' simple For loop, you can modify to find last row with data instead of 52 
    For i = 2 To 52 
     If (Not Range("X" & i).Value = "COMPLETE") And (Not Range("X" & i).Value = "CANCELLED") Then 
      Range("X" & i).FormulaR1C1 = "=GetOrderStatus(RC[1])" 
     End If 
    Next i 


End Sub