¿Cómo utilizar VBA para resolver problemas en EXCEL?

Private SubCommandButton1_Click()

i = 2

hacer While Range(" B " & i). Valor>""

Si i = 2 o Rango(" B " & i). valor <>Range("B"&i-1). Eso vale la pena

k = i

range(" E " & amp i). valor = Rango(" C " & i). Valor

Rango(" F " &I). valor = Rango(" D " & i). Valor

Otro

Si Rango(" C " &I). valor>Range("E"&k). Eso vale la pena

Rango(" E " & ampk). valor = Rango(" C " & i). Valor

Termina si

Si rango(" D " &I). valor>Range("F"&k). Eso vale la pena

Rango(" F " & ampk). valor = Rango(" D " & i).

Valor

Terminará si...

i = i + 1

Anillo

Conector final