Excel Workbook | ||||
---|---|---|---|---|
A | B | |||
2 | 1 | |||
3 | ||||
4 | 10 | |||
5 | ||||
6 | 3 | |||
7 | ||||
8 | 7 | |||
9 | ||||
10 | 1000 | |||
Sheet1 |
Excel Workbook | ||||
---|---|---|---|---|
A | B | |||
2 | 1 | odd | ||
3 | ||||
4 | 10 | even | ||
5 | ||||
6 | 3 | odd | ||
7 | ||||
8 | 7 | odd | ||
9 | ||||
10 | 1000 | even | ||
Sheet1 |
Sub OddEven()
With Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row)
.FormulaR1C1 = "=IF(RC[-1]="""","""",IF(MOD(RC[-1],2)=0,""even"",""odd""))"
.Value = .Value
End With
End Sub
Dim cell As Range
For Each cell In Range("A2", Cells(Rows.Count,"A").End(xlUp))
If Not IsEmpty(cell.Value) Then cell.Offset(,1) = Iif(cell.Value And 1,""Odd"",""Even"")
Next cell
Sub test2()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
With Range("A" & i)
Select Case .Value
Case "": .Offset(, 1).Value = "Null"
Case Else: .Offset(, 1).Value = IIf(.Value Mod 2 = 0, "Even", "Odd")
End Select
End With
Next i
End Sub