自己写的Excel下的一个宏，记录下

Sub display()
' Macro1 Macro

Dim GongZi As Currency ' 税前工资
Dim GongZi2 As Currency ' 税后工资
'GongZi = Range("A1").Value '注意修改A2为工资栏

GongZi = ActiveCell.Value2

If GongZi > 20000 And GongZi <= 40000 Then

GongZi2 = (GongZi - 20000) * 0.25

ElseIf GongZi > 5000 And GongZi <= 20000 Then

GongZi2 = (GongZi - 5000) * 0.2

ElseIf GongZi > 2000 Then

GongZi2 = (GongZi - 2000) * 0.15

Else

GongZi2 = 0

End If

Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = GongZi2

End Sub