Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Use Do Loop While to change ActiveCell value
Sub DoLoopWhileDemo()
    Do
        ActiveCell.value = ActiveCell.value * 2
        ActiveCell.offset(1, 0).Select
    Loop While ActiveCell.value <> Empty
End Sub