If Range("e" & i) = "男" Then
Range("f" & i) = "先生"
Else
Range("f" & i) = "女士"
End If
If Range("a" & i) = "男"
Range("b" & i) = "先生"
Else
Range("b" & i) = "女士"
End If
If Range("a" & i) = "男" Else
Range("b" & i) = "先生"
Then
Range("b" & i) = "女士"
End If
If Range("a" & i) = "男" Then
Range("b" & i) = "先生"
Else
Range("b" & i) = "女士"
End If