Do While loop in VBA
Basic Construct
Sub DoWhileLoop()
Dim x As Integer
x = 1
Do While x <= 3
MsgBox x
x = x + 1
Loop
End Sub
|
Do While loop to initialize a range of cells in Excel
Sub DoWhileLoop()
Dim x As Integer
x = 1
Do While x <= 5
Cells(x, 1).Value = x
x = x + 1
Loop
End Sub
|
The output in Excel is shown below.
