Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Execute the code block until the conditional statement is True

Sub loopUntil()     Dim I As Integer     I = 1     Do            Cells(I, "B").Value = Cells(I, "A").Value            I = I + 1     Loop Until Cells(I, "A").Value = "" End Sub