Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Nest If statement in Do Loop While with comparison operators
Sub IfDo()
    Dim I As Integer
    I = 1
    Do
          If (Cells(I, "A").Value = "A") Then
                MsgBox ("I found a A in row " & Str(I))
          End If
          I = I + 1
    Loop While (Cells(I, "A").Value <> "")
End Sub