认识if语句

标签：elseif   lse   next   else   语句   delete   let   if语句   end   

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

认识if语句

标签：elseif   lse   next   else   语句   delete   let   if语句   end   

原文地址：https://www.cnblogs.com/lyzifan/p/12271064.html