excel中使用vba批量计算个人所得税的方法
工具/原料
excel2013
更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。
好人一生平安。先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。
方法/步骤
1、首先我们打开一个工作样表，这是一份工资表。
2、打开vba编辑器，在代码框中，输入以下代艨位雅剖码。Function个人所得税(curPAsCurre荏鱿胫协ncy)curP=curP-1600'1600为免征额IfcurP>0ThenSelectCasecurPCaseIs<=500suo=curP*0.05CaseIs<=2000suo=(curP-500)*0.1+25CaseIs<=5000suo=(curP-2000)*0.15+125CaseIs<=20000suo=(curP-5000)*0.2+375CaseIs<=40000suo=(curP-20000)*0.25+1375CaseIs<60000suo=(curP-40000)*0.3+3375CaseIs<80000suo=(curP-60000)*0.35+6375CaseIs<100000suo=(curP-80000)*0.4+10375CaseElsesuo=(curP-100000)*0.45+15375EndSelect个人所得税=suoElse个人所得税=0EndIfEndFunction
3、新建一个过程sub，代码如下。Su水瑞侮瑜b计算()Fori=6To13Sheets(1).Ce造婷用痃lls(i,15).Value=个人所得税(Sheets(1).Cells(i,14).Value)NextEndSub
4、代码是调用个人所得税函数，计算N6-N13单元格工资的所得税额，并将结果写入O6-O13单元格中。
5、我们螅岔出礤在5月工资也就是sheet1工作薄中插入一个控件按钮，并将其关联到“计算”过程。如果你是其他格式的表格，只需要修改步骤三中的表格数据位置即可正常使用。
6、以后有需要的时候，只要将数据输入对应的单元格内，然后点击按钮就可以正确的得到了个人所得税的结果了。当然，你也可以自行调用vba运行函数，效果是一样的。
