¿Cómo hacer un bucle if hacia arriba en Vba?

Sub zhao()

Atenuar x como entero

Atenuar y como entero

Para y = 100 a 7 Paso -1

Para x = 100 a 7 Paso -1

Si Celdas(x, 1).Valor = 1 Entonces

Celdas(y, 5).Valor = Celdas(x, 3).

De lo contrario

Finalizar si

Finalizar sub

Abajo es la nueva respuesta:

Sub zhao ()

Dim x As Integer

Dim y As Integer

For y = 100 To 7 Paso -1

Para x = y Para 7 Paso -1

Si Celdas(x, 1).Valor = 1 Entonces

Celdas(y, 5).Valor = Celdas(x, 3).Valor

Salir para

Si no

Finalizar si

End Sub

¿No sabes si este funcionará para ti?