Сделать условный цикл

Question

Я работаю над столбцом данных, который меняется с понижением.Когда значение ячейки ниже изменяется, мой код должен выполнить некоторую команду;если он не изменяется, он ничего не должен делать.

Мои коды работают следующим образом

For y = 51 To 60

  if ThisWorkbook.Sheets("sheet3").Range("ax" & y).Value = _
    ThisWorkbook.Sheets("sheet3").Range("ax" & y - 1).Value then

    With .document
      .getElementById("ctl00_ContentPlaceHolder1_ddlCluster").Focus
      .getElementById("ctl00_ContentPlaceHolder1_ddlCluster").selectedIndex = _
                    ThisWorkbook.Sheets("sheet3").Range("ax" & y).Value
      .getElementById("ctl00_ContentPlaceHolder1_ddlCluster").FireEvent "onchange"

      Application.Wait Now + TimeSerial(0, 0, 3)
    end with

Answer 1

Я полагаю, что что-то подобное, реализованное в вашем коде, может работать:

Function 123abc() 

Dim i, j as string

i = ThisWorkbook.Sheets("sheet3").Range("ax" & y - 1).Value
j = ThisWorkbook.Sheets("sheet3").Range("ax" & y ).Value)

IF i <> j THEN

   'Do something

End if

End function

Например, в ячейке AX, где y равно 53:

If    AX52 <> AX53 THEN    'true
           'something will happen
End if