认识if语句

Sub 认识if语句()

Dim i As Integer
For i = 26 To 2 Step -1
If Range("e" & i) = "男" Then
Range("f" & i) = "先生"
Else
Range("f" & i) = "女士"
End If

If Range("b" & i) = "理工" Then
Range("c" & i) = "lg"
ElseIf Range("b" & i) = "文科" Then
Range("c" & i) = "wk"
Else
Range("c" & i) = "cj"
End If

If Range("d" & i) = "" Then
Range("d" & i).EntireRow.Delete
End If
Next
End Sub