Excel中如何编写下图中的宏

Question

如题所述

Answer 1

Sub danjia()
Dim i%
r = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To r
    Select Case Cells(i, 2)
        Case Is < 500
            Cells(i, 3) = 500 * 0.95
        Case Is < 600
            Cells(i, 3) = 500 * 0.95
        Case Is < 1000
            Cells(i, 3) = 500 * 0.8
        Case Is < 5000
            Cells(i, 3) = 500 * 0.7
        Case Is >= 5000
            Cells(i, 3) = 500 * 0.6
    End Select
Next
End Sub