Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. 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