按月领取工资时，你是否对自己每个月所缴的个税产生好奇呢？为何每个月都不一样？当然，可能有些朋友会说：自己的工资还没到个税起征点，但这并不妨碍我们了解个税的计算方法，多学点知识总没坏处。一、综合所得税率表（全年）
二、关键扣除项（2026）
基本减除费用：5000 元 / 月（6 万 / 年）
专项扣除：个人缴的养老、医疗、失业、公积金（三险一金）
专项附加扣除（7 项）：
3 岁以下婴幼儿照护：2000 元 / 月 / 子女
子女教育：2000 元 / 月 / 子女
赡养老人：独生子女 3000 元 / 月；非独生分摊
住房贷款利息：1000 元 / 月（首套，最长 240 月）
住房租金：1500/1100/800 元 / 月（按城市）
继续教育：学历 400 元 / 月；职业资格 3600 元 / 年
三、核心公式（2026 年现行）
1. 年度总算法（汇算清缴用）
- 应纳税所得额= 全年工资收入 − 60000 元（起征点） − 个人三险一金 − 专项附加扣除 − 其他扣除
- 全年应缴个税= 应纳税所得额 × 适用税率 − 速算扣除数
- 税后年薪= 全年工资 − 个人三险一金 − 全年应缴个税
2. 月度预扣（工资条扣税）单位用累计预扣法：
- 累计应纳税所得额 = 累计工资 − 累计 5000 / 月 − 累计三险一金 − 累计专项附加扣除
- 本月应扣个税 =（累计应纳税所得额 × 税率 − 速算扣除数）− 累计已扣个税
Sub 个税计算() Dim sht As Worksheet Dim arr() Dim i As Long Dim 起征点 As Double Dim 应缴工资 As Double Dim 累计应缴工资 As Double Dim 当月应缴 As Double Dim 已缴总和 As Double Dim 应缴个税 As Double Set sht = ThisWorkbook.Sheets(1) arr = sht.Range("A1").CurrentRegion 起征点 = 5000 累计应缴工资 = 0 当月应缴 = 0 已缴总和 = 0 For i = 3 To UBound(arr, 1) If arr(i, 3) <> "" Then 应缴工资 = arr(i, 3) - arr(i, 4) - arr(i, 5) - arr(i, 6) - 起征点 累计应缴工资 = 累计应缴工资 + 应缴工资 当月应缴 = 计算当月应缴个税(累计应缴工资, 已缴总和, 应缴个税) If 当月应缴 < 0 Then 当月应缴 = 0 已缴总和 = 已缴总和 + 当月应缴 sht.Range("G" & i) = 应缴个税 sht.Range("H" & i) = VBA.Round(当月应缴, 2) End If Next iEnd SubFunction 计算当月应缴个税(累计应缴工资 As Double, 已缴总和 As Double, ByRef 应缴个税 As Double) As Double Dim 速算扣除数 As Double Dim 累计应缴 As Double Select Case 累计应缴工资 Case Is > 960000 应缴个税 = 0.45 速算扣除数 = 181920 Case Is > 660000 应缴个税 = 0.35 速算扣除数 = 85920 Case Is > 420000 应缴个税 = 0.3 速算扣除数 = 52920 Case Is > 300000 应缴个税 = 0.25 速算扣除数 = 31920 Case Is > 144000 应缴个税 = 0.2 速算扣除数 = 16920 Case Is > 36000 应缴个税 = 0.1 速算扣除数 = 2520 Case Is > 0 应缴个税 = 0.03 速算扣除数 = 0 Case Else 应缴个税 = 0 速算扣除数 = 0 End Select 累计应缴 = 累计应缴工资 * 应缴个税 - 速算扣除数 计算当月应缴个税 = VBA.Round(累计应缴 - 已缴总和, 2)End Function
重点说明：本文代码仅用于个人学习、办公效率提升，不涉及任何违规内容，不泄露隐私、不提供非法工具，纯粹分享实用办公技巧。
10个月宝宝每天需要喝多少奶粉？
