Excel VBA个税计算教程分享
- 2026-11-13 20:12:14
Excel VBA个税计算教程分享按月领取工资时，你是否对自己每个月所缴的个税产生好奇呢？为何每个月都不一样？当然，可能有些朋友会说：自己的工资还没到个税起征点，但这并不妨碍我们了解个税的计算方法，多学点知识总没坏处。 言归正传，演示如下： 
四、代码分享：
已关注
关注
重播 分享 赞
个人验证与《个人所得税》比对未发现问题，如有问题欢迎指正，后期会同步至《Excel e站助手》插件 不清楚三险一金基数的：可以问AI，如：2025年常州社保最低个人缴费
一、综合所得税率表（全年）
二、关键扣除项（2026）
基本减除费用：5000 元 / 月（6 万 / 年）
专项扣除：个人缴的养老、医疗、失业、公积金（三险一金）
专项附加扣除（7 项）：
3 岁以下婴幼儿照护：2000 元 / 月 / 子女
子女教育：2000 元 / 月 / 子女
赡养老人：独生子女 3000 元 / 月；非独生分摊
住房贷款利息：1000 元 / 月（首套，最长 240 月）
住房租金：1500/1100/800 元 / 月（按城市）
继续教育：学历 400 元 / 月；职业资格 3600 元 / 年
三、核心公式（2026 年现行）
1. 年度总算法（汇算清缴用）
- 应纳税所得额= 全年工资收入 − 60000 元（起征点） − 个人三险一金 − 专项附加扣除 − 其他扣除
- 全年应缴个税= 应纳税所得额 × 适用税率 − 速算扣除数
- 税后年薪= 全年工资 − 个人三险一金 − 全年应缴个税
2. 月度预扣（工资条扣税）单位用累计预扣法：
累计应纳税所得额 = 累计工资 − 累计 5000 / 月 − 累计三险一金 − 累计专项附加扣除 本月应扣个税 =（累计应纳税所得额 × 税率 − 速算扣除数）− 累计已扣个税
Sub 个税计算()Dim sht As WorksheetDim arr()Dim i As LongDim 起征点 As DoubleDim 应缴工资 As DoubleDim 累计应缴工资 As DoubleDim 当月应缴 As DoubleDim 已缴总和 As DoubleDim 应缴个税 As DoubleSet sht = ThisWorkbook.Sheets(1)arr = sht.Range("A1").CurrentRegion起征点 = 5000累计应缴工资 = 0当月应缴 = 0已缴总和 = 0For 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 IfNext iEnd SubFunction 计算当月应缴个税(累计应缴工资 As Double, 已缴总和 As Double, ByRef 应缴个税 As Double) As DoubleDim 速算扣除数 As DoubleDim 累计应缴 As DoubleSelect Case 累计应缴工资Case Is > 960000应缴个税 = 0.45速算扣除数 = 181920Case Is > 660000应缴个税 = 0.35速算扣除数 = 85920Case Is > 420000应缴个税 = 0.3速算扣除数 = 52920Case Is > 300000应缴个税 = 0.25速算扣除数 = 31920Case Is > 144000应缴个税 = 0.2速算扣除数 = 16920Case Is > 36000应缴个税 = 0.1速算扣除数 = 2520Case Is > 0应缴个税 = 0.03速算扣除数 = 0Case Else应缴个税 = 0速算扣除数 = 0End Select累计应缴 = 累计应缴工资 * 应缴个税 - 速算扣除数计算当月应缴个税 = VBA.Round(累计应缴 - 已缴总和, 2)End Function
重点说明：本文代码仅用于个人学习、办公效率提升，不涉及任何违规内容，不泄露隐私、不提供非法工具，纯粹分享实用办公技巧。
本文来自网友投稿或网络内容，如有侵犯您的权益请联系我们删除，联系邮箱：wyl860211@qq.com 。
