Anche se non è usato molto spesso su questo sito, si potrebbe trovare in una situazione in cui si desidera utilizzare il ciclo Do Until in Excel VBA. Codice collocato tra Do Until e Loop sarà ripetuto fino a quando la parte dopo Do Until è vero.

Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:

Dim i As Integer

i = 1

Do Until i > 6

Cells(i, 1).Value = 20

i = i + 1

Loop

Risultato quando si fa clic sul pulsante di comando sul foglio:

Excel VBA Do Until Loop

Spiegazione: fino i è maggiore di 6, Excel VBA inserisce il valore 20 nella cella all’intersezione della riga ie colonna 1 e incrementi i di 1. Di conseguenza, il valore 20 verrà inserito nella colonna A sei volte (non sette perché Excel VBA si ferma quando i è uguale a 7).