Excel - macro - do-loop

[wwj]

For-loop example.

Code: Select all

Sub NewRzone()
'
' NewRzone Macro
'
    Dim Rno As Variant
    '
    Sheets("Rechg_zone_no").Select
    '
    Set Rno = Range("E2:E718936")
    For Each R In Rno
        '
        If (R < 50) Then
            R.Offset(0, 1) = R
        Else
            R.Offset(0, 1) = R - 50
        End If
        
    Next R
'
End Sub