个人所得税的excel算法(怎么用excel表格快速求个人所得税)

个人所得税（personal income tax）是调整征税机关与 自然人 （居民、非居民人）之间在个人所得税的征纳与管理过程中所发生的社会关系的法律规范的总称。

工资、薪金所得，是指个人因任职或受雇而取得的工资、薪金、奖金、年终加薪、劳动分红、津贴、补贴以及与任职或受雇有关的其他所得。这就是说，个人取得的所得，只要是与任职、受雇有关，不管其单位的资金开支渠道或以现金、实物、有价证券等形式支付的，都是工资、薪金所得项目的课税对象。

现行方法

（总工资）-（三险一金）-（免征额）}*税率-速扣数=个人所得税

　扣除标准3500元/月（2011年9月1日起正式执行）（工资、薪金所得适用）

个税计算7级标准

全月应纳税所额 税率 速算扣除数（元）

全月应纳税额不超过1500元 3% 0

全月应纳税额超过1500元至4500元 10%

全月应纳税额超过4500元至9000元 20%

全月应纳税额超过9000元至35000元 25%

全月应纳税额超过35000元至55000元 30%

全月应纳税额超过55000元至80000元 35%

全月应纳税额超过80000元 45%

我们在Excel中无法找到可以直接计算个人所得税的函数，这是时候我们可以使用Excel VBA自定义函数计算个人税.

Public Function grsds(应税工资 As Single, Optional 起征点 As Single = 3500)

Dim kc As Single, sl As Single, n As Long

If 起征点 = 0 Then

n = 12

Else

n = 1

End If

Select Case (应税工资 - 起征点) / n

Case Is <= 0

sl = 0: kc = 0

Case Is <= 1500

sl = 0.03: kc = 0

Case Is <= 4500

sl = 0.1: kc = 105

Case Is <= 9000

sl = 0.2: kc = 555

Case Is <= 35000

sl = 0.25: kc = 1005

Case Is <= 55000

sl = 0.3: kc = 2755

Case Is <= 80000

sl = 0.35: kc = 5505

Case Is > 80000

sl = 0.45: kc = 13505

End Select

If 应税工资 <= 0 Then

grsds = 0

Else

grsds = WorksheetFunction.Round((应税工资 - 起征点) * sl - kc, 2)

End If

If 起征点 = 0 Then

If 18000 < 应税工资 And 应税工资 <= 19283.33 Then grsds = "多缴税了！！！这些钱要纳入月工资：" & 应税工资 - 18000

If 54000 < 应税工资 And 应税工资 <= 60187.5 Then grsds = "多缴税了！！！这些钱要纳入月工资：" & 应税工资 - 54000

If 108000 < 应税工资 And 应税工资 <= 114600 Then grsds = "多缴税了！！！这些钱要纳入月工资：" & 应税工资 - 108000

If 420000 < 应税工资 And 应税工资 <= 447500 Then grsds = "多缴税了！！！这些钱要纳入月工资：" & 应税工资 - 420000

If 660000 < 应税工资 And 应税工资 <= 706538.46 Then grsds = "多缴税了！！！这些钱要纳入月工资：" & 应税工资 - 660000

If 960000 < 应税工资 And 应税工资 <= 1120000 Then grsds = "多缴税了！！！这些钱要纳入月工资：" & 应税工资 - 960000

End If

End Function