Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

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