/ / Excel VBA Do Until Loop

Excel VBA Do Until Loop

Embora não seja usado com muita frequência neste site, você pode se deparar com uma situação na qual deseja usar o Do Until Loop em Excel VBA. O código colocado entre Do Until e Loop será repetido até que a parte após Do Until seja verdadeira.

Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:

Dim i As Integer
i = 1

Do Until i > 6
    Cells(i, 1).Value = 20
    i = i + 1
Loop

Resultado quando você clica no botão de comando na folha:

Excel VBA Do Until Loop

Explicação: até que i seja superior a 6, o Excel VBA coloca o valor 20 na célula na interseção da linha i e coluna 1 e incrementa i em 1. Como resultado, o valor 20 será colocado na coluna A seis vezes (não sete porque Excel VBA pára quando eu é igual a 7).

Leia também: