Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. To ensure that the code block executes at least once, place the While keyword and conditional statement at the end of the
Sub WhileDemo()
    Dim I As Integer
    I = 1
    Do
           Cells(I, "B").Value = Cells(I, "A").Value
           I = I + 1
    Loop While Cells(I, "A").Value <> ""
End Sub