Option Explicit
Sub q11_Answer()
    Dim cell As Range
    
    For Each cell In Range("B2").CurrentRegion
        If cell.Value = 0 Or cell.Value = 1 Or cell.Value = 2 Then
            cell.Value = "v"
        Else
            cell.Value = "d"
        End If
    Next cell
End Sub

          

Source: ---

Disclaimer: The information in this webpage is shared by anonymous users from external online sources. We cannot guarantee its accuracy or truthfulness. Users should exercise caution and verify information independently.