使用IF进行逻辑判断

    Range单元格对象
    IF函数过程控制
    使用IF退出For循环

小提示：
    新建模块：右键Sheet、插入模块
    运行：上面的三角形
    注释：'  单引号

使用Range 控制单元格
    直接写单元格：Range("a1") = 2
    变量i和Range结合，控制单元格：Range（"a"&i）
    Dim i As Integer
    For i = 1 To 100
        Range("a" & i) = i
    Next

step 设置步长，默认为1

if 语法：
    If Range("e" & i) = "男" Then
        Range("f" & i) = "先生"
    Else
        Range("f" & i) = "女士"
    End If

if else：
    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、elseif 后面有then
if的最后有end if 
使用Tab缩进可以增加可读性
删除行时下一行会往上跑一行。从下往上删就不会这样。
Sub panduan()
Dim i As Integer
For i = 10 To 1 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("b" & i) = "" Then
        Range("b" & i).Select
        Selection.EntireRow.Delete
    End If
        
Next

End Sub
if控制for
If Range("a" & i) = "" Then
        Exit For

And 并且 用于if 条件1 and 条件2 Then
Or  或者  用法类似And