Aunque no se utiliza muy a menudo en este sitio, es posible que se encuentre en una situación en la que desea utilizar el bucle Do Until en Excel VBA. Código coloca entre Hacer hasta Loop y se repetirá hasta que la pieza después de Do Until es cierto.

Coloque un botón de comando en la hoja de trabajo y añadir las líneas de código siguientes:

Dim i As Integer

i = 1

Do Until i > 6

Cells(i, 1).Value = 20

i = i + 1

Loop

Como resultado al hacer clic en el botón de comando en la hoja:

Excel VBA Do Until Loop

Explicación: hasta i es mayor que 6, Excel VBA coloca el valor 20 en la célula en la intersección de la fila i y la columna 1 y se incrementa i en 1. Como resultado, el valor 20 se colocará en la columna A seis veces (no siete porque Excel VBA se detiene cuando i es igual a 7).