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
温馨提示:答案为网友推荐,仅供参考