使用If进行逻辑判断——Excel之VBA（2）

IF 语句：

If ...Then....Esle.....Endif

If ...Then....EsleIF

range语句：

range("a" & i )

For语句：

For i = 1 To 10 Step 2

 

示例代码：

Sub pd()
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).Select
        Selection.EntireRow.Delete
    End If
        
    

Next


End Sub

 

 
Sub gzt()
Dim i As Integer

For i = 3 To 2000 Step 2

    If Range("A" & i) = "" Then
        Exit For
    End If
    
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A" & i).Select
    Selection.Insert Shift:=xlDown
    
Next


End Sub

 

 

续：

posted @ 2020-11-16 11:57  云谷の风  阅读(369)  评论(0)  编辑  收藏  举报