【VBA学习-第03课】FOR IF，工作表操作

wmjrty

Sub wmj()

Dim i, j As Integer


For i = 1 To Sheets.Count

    Sheets(i).Activate

    For j = 100 To 2 Step -1

        If Sheets(i).Range("e" & j) = "男" Then

            Sheets(i).Range("f" & j) = "先生"

        Else

            Sheets(i).Range("f" & j) = "女士"

        End If

        If Sheets(i).Range("b" & j) = "理工" Then

            Sheets(i).Range("c" & j) = "lg"

        ElseIf Sheets(i).Range("b" & j) = "文科" Then

            Sheets(i).Range("c" & j) = "wk"

        Else

            Sheets(i).Range("c" & j) = "cj"

        End If

        If Sheets(i).Range("d" & j) = "" Then



            Sheets(i).Range("D" & j).Select

            Selection.EntireRow.Delete

        End If

    Next

Next


End Sub