VBA学习第二课

Sub sd()
Dim i As Integer
For i = 2 To 2000

    If Range("b" & i) = "" Then
    Exit For
    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
Next

End Sub

　　

Sub aa()



Dim i As Integer


For i = 2 To 2000
    If Range("e" & i) = "" Then
    Exit For
    End If
    
    If Range("e" & i) = "男" Then
    Range("f" & i) = "先生"
    Else: Range("f" & i) = "女士"
    End If
Next

　　

Sub aa()

Dim i As Integer

For i = 26 To 2 Step -1 '往回删除需要加个 step -1

    If Range("D" & i) = "" Then
    
    Range("D" & i).Select
    
    Selection.EntireRow.Delete
        
    End If
    
Next



End Sub

　　

Sub aa()

Dim i As Integer


For i = 3 To 200 Step 2

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

End Sub

　　

Sub 个税()

Dim i As Integer

For i = 2 To 200

    If Range("c" & i) = "" Then
    Exit For
    End If
    
    If Range("c" & i) - 3500 <= 0 Then
        Range("d" & i) = 0
        ElseIf Range("c" & i) - 3500 > 0 And Range("c" & i) - 3500 <= 1500 Then
        Range("d" & i) = (Range("c" & i) - 3500) * 0.03
        ElseIf Range("c" & i) - 3500 > 1500 And Range("c" & i) - 3500 <= 4500 Then
        Range("d" & i) = (Range("c" & i) - 3500) * 0.1 - 105
        ElseIf Range("c" & i) - 3500 > 4500 And Range("c" & i) - 3500 <= 9000 Then
        Range("d" & i) = (Range("c" & i) - 3500) * 0.2 - 555
        ElseIf Range("c" & i) - 3500 > 9000 And Range("c" & i) - 3500 <= 35000 Then
        Range("d" & i) = (Range("c" & i) - 3500) * 0.25 - 1005
        ElseIf Range("c" & i) - 3500 > 35000 And Range("c" & i) - 3500 <= 55000 Then
        Range("d" & i) = (Range("c" & i) - 3500) * 0.3 - 2755
        ElseIf Range("c" & i) - 3500 > 55000 And Range("c" & i) - 3500 <= 80000 Then
        Range("d" & i) = (Range("c" & i) - 3500) * 0.35 - 5505
        ElseIf Range("c" & i) - 3500 > 80000 Then
        Range("d" & i) = (Range("c" & i) - 3500) * 0.45 - 13505
    End If
Next


End Sub