Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Checks values in a range 10 rows by 5 columns with nested for loop
Sub CheckValues2()
    Dim rwIndex As Integer
    Dim colIndex As Integer
    For rwIndex = 1 To 10
         For colIndex = 1 To 5
             With Cells(rwIndex, colIndex)
                 If Not (.Value = 0) Then Cells(rwIndex, colIndex).Value = 0
             End With
         Next colIndex
    Next rwIndex
End Sub