Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Do-Until loop and IsEmpty
Sub DoUntilDemo()
    Do Until IsEmpty(ActiveCell.value)
        ActiveCell.value = ActiveCell.value * 2
        ActiveCell.offset(1, 0).Select
    Loop
End Sub