Bucles de repetición:Do…Loop

Este bucle comprueba que se ejecute una serie de instrucciones hasta que se cumpla una condición determinada. Por ejemplo en el siguiente código forzamos que se escriban los números desde el 1 al 11, para ello usamos una variable contador que la inicializamos en 0 y a partir de aquí le sumamos 1 hasta que llege al 11.

Sub ejemplo_Do_Loop()
Dim i As Byte
i = 0
Do Until i = 11
i = i + 1
Cells(i, 1) = i
Loop

End Sub

Una variante de este bucle sería Do…while…loop

Sub ejemplo_Do_while_loop()
Dim i As Byte
i = 0
Do While i < 20
i = i + 1
Cells(i, 1) = i
Loop

End Sub