VBA学习第一天，for 与 if 的使用

今天是学习王佩丰老师VBA课程的第一天，简单处理数据
练习1，
1.根据E内容，在F称呼“先生”或者“女士”，
2.根据B列内容，在C列显示代号“理工”-“LG”，“文科”-“WK”，“财经”-“CJ”。
3.根据D列，删除姓名为空的行
原料数据如下：

处理效果如下：

VBA代码;
Sub chuli()
‘定义i为整数类型
Dim i As Integer
’定义for循环
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"
    ElseIf Range("B" & i) = "财经" Then
    Range("C" & i) = "CJ"
End If

    ‘删除姓名为空的行
If Range("D" & i) = "" Then
    Rows(i & ":" & i).Select
    Selection.Delete shift:=xlUp
End If

Next

End Sub

代码太简单，就这么写吧