巧用Excel 97/2000自动计算个人所得税
一、个人取得的所得是含税所得（雇主不负担税款）情况下个人所得税的计算
设计一表格（^29050201a^表1），该表共10栏（A、B、C、D……为列标，1、2、3、4……为行标）。先选定F3单元格，在其中填写公式“=Sum（c3：e3）”，该公式的含义是：本单元格等于c3到e3这三个单元格之和，即：含税收入=工资＋奖金＋补贴。再选定G3单元格，在其中填写如下公式：“=if（f3>800，f3－800，0）”。该公式的含义是：如果f3>800，那么G3=f3－800，否则G3=0；即：如果含税收入大于费用扣除标准，那么应税所得等于含税收入减去费用扣除标准后的差额，否则就等于0。
再选定H3单元格，在其中填写如下公式：“=if（g3<=500，5％，if（g3<=2000，10％，if（g3<=5000，15％，if（g3<=20000，20％，if（g3<=40000，25％，if（g3<=60000，30％，if（g3<=80000，35％，if（g3<=100000，40％，45％））））））））”。该公式的含义是：当G3的值（应税所得）小于或等于500时，H3（适用税率）为5％，当500<G3<=2000时，H3为10％，当2000<G3<=5000时，H3为15％……
再选定I3单元格，在其中填写如下公式：“=if（h3=5％，0，if（h3=10％，25，if（h3=15％，125，if（h3=20％，375，if（h3=25％，1375，if（h3=30％，3375，if（h3=35％，6375，if（h3=40％，10375，15375））））））））”。该公式的含义是：当H3（适用税率）=5％时，I3（速算扣除数）=0，当H3=10％时，I3=25，当H3=15％时，I3=125……
再选定J3单元格，在其中填写公式：“=g3＊h3－i3”即可。该公式的含义为：J3=G3×H3 － I3，即：应纳税额=应税所得×适用税率－速算扣除数。
现在，第一个记录中各单元格的公式都设好了，我们只要在C3到E3的各个单元格中输入数值，就会马上知道应税所得、适用税率、速算扣除数和应纳税额分别是多少。
不过，到现在为止，我们还只能对一个记录进行自动计算，因为下一个记录我们还没有给它填写公式。为此，我们可以利用自动填充功能来完成：先同时选定F3到J3这五个单元格，接着把鼠标指向J3单元格的右下角一黑色小方块处，当鼠标变成了一个黑色的“＋”时，按住鼠标左键不放，向下拖动，我们拖到哪里，公式就自动复制到哪里。
现在所有的公式都设好了，接下来就是一些扫尾工作了，如：①给表格加上表格线；②通过“页面设置”窗口，给表格加上行标题；③通过“分类汇总给每页加上合计数，并在最后一页加上总计数。等等，这里就不一一说明了。
至此，我们就把整张表格都设计好了，只要把刚才设计好的表格保存为“模板”形式，就可以在以后的工作中反复调用，而不必从头再来。
二、个人取得的所得为不含税所得情况下个人所得税的计算
在这种情况下，应税所得=（不含税收入 － 费用扣除标准 － 速算扣除数）÷（1－ 税率），所以我们要在表1的基础上做下列的修改才能保证计算的准确性：①把“含税收入”改为“不含税收入”；②把G3单元格中的公式改为：“=if（f3>800，（f3－800－i3）/（1－h3），0 ）”；③把H3单元格中的公式改为“=if（f3－800<=475，5％，if（475<f3－800<=1825，10％，if（1825<=f3－800<4375，15％，if（4375<=f3－800<16375，20％，if（16375<=f3－800<31375，25％，if（31375<=f3－800<45375，30％，if（45375<=f3－800<58375，35％，if（58375<=f3－800<70375，40％，45％））））））））”；其他各单元格则保持不变。接下来的工作就和第一点的一样了（修改后的表格命名为^29050201b^表2）。
三、个人取得的所得含且只含有部分税款（雇主负担部分税款）情况下个人所得税的计算
1.雇主定额负担税款
这种情况下，以表1为基础在“含税收入”前插入一栏“雇主负担税额”，然后把G3中的公式改为“=Sum（c3：f3）”，其他单元格中的公式则无须我们手工去修改，一切都已在悄然间自动完成了。接下来的工作也是和第一点中的相同（修改后的表格命名为^29050201c^表3）。
2.个人定额负担税款
这种情况下，以表2为基础，在“不含税收入”前插入一栏“个人负担税额”，然后把G3中的公式改为“=sum（c3：e3）－ f3”即可，其他单元格中的公式也无须手工更改。接下来的工作也是和第一点中的相同（修改后的表格命名为^29050201d^表4）。
3.雇主按比例负担税款
在这种情况下，应税所得必须通过公式“应税所得=（未含雇主负担的税款的收入额 － 费用扣除标准 － 速算扣除数×比例）÷（1－ 税率×比例）”来求得，而由公式我们可以看出，要求应税所得，先要知道适用税率；而要确定适用税率，就必须知道应税所得或不含税所得。这样就出现了“死循环”——要求A必须知道B，而要确定B则须知道A。难道我们就没有办法了？这时我们可以用“代入法”来确定适用税率并求出应税所得：就是把各个税率（5％、10％、15％、20％、25％、30％、35％、40％、45％）逐一代入上面的这一公式中，然后根据求出的应税所得来确定它的适用税率，最后把这个适用税率和刚才代入公式的税率比较——如果两者相等，说明这个税率是正确的，否则就是错误的。
根据这个原理，我们可以利用Excel的“宏”来实现工作的自动化。以表1为基础，把“含税收入”改为“部分含税收入”，然后在“应税所得”前插入一栏“雇主负担的比例”，并把H3中的公式改为：“=（f3 － 800 － j3＊g3）/（1 － i3＊g3）”，最后把 i3中公式清除掉即可，其他单元格也无须手工更改。接下来的工作也是和第一点中的相同（修改后的表格命名为^29050201e^表5）。最后我们所要做的就是编辑“宏”了，具体如下：
先录制一个内容是空的宏，将它命名为“雇主负担比例税款”，并指定快捷键为“Ctrl＋Shift＋A”，然后打开这个宏进行编辑，输入下面的代码（从Sub开始，至End Sub结束），保存退出后就可以按快捷健“Ctrl＋Shift＋A”运行这个宏（也可设置一个命令按钮来简化操作），根据提示输入必要的数据后，就可自动求出所有记录（每个人）的应税所得、适用税率、应纳税额等各栏的值。
Sub 雇主负担比例税款（ ）
On Error GoTo 比例税款_err
Cells.Find（What:=″适用税率″，After:=ActiveCell，
LookIn:=xlFormulas，LookAt:=xlPart，SearchOrder:= xlByRows，SearchDirection:=xlNext，MatchCase:=False，MatchByte:=False）.Activate
ActiveCell.Offset（1，0）.Range（″A1″）.Select
Dim a As Integer
Dim b As Integer
Dim e As Integer
e = InputBox（″请以数字的形式输入″应税所得″所在的栏次″）
a = InputBox（″请输入总记录数″）
b = 1
Do Until b > a
With Selection
Dim I As Integer
I = 1
Dim c As Single
c = 1
Dim d As Double
Do Until ActiveCell = c
If I >10 Then
MsgBox ″找不到适用税率或该个人的收入未达到起征点″
Selection = ″″
Exit Do
Else
Selection = I ＊ 0.05
d = Cells（ActiveCell.Row，e）
If d< 0 Then
c = 0
ElseIf d< 500 Then c = 0.05
ElseIf d< 2000 Then c = 0.1
ElseIf d< 5000 Then c = 0.15
ElseIf d< 20000 Then c = 0.2
ElseIf d< 40000 Then c = 0.25
ElseIf d< 60000 Then c = 0.3
ElseIf d< 80000 Then c = 0.35
ElseIf d< 100000 Then c = 0.4
Else: c = 0.45
End If
I = I ＋ 1
End If
Loop
ActiveCell.Offset（1，0）.Select
End With
b = b ＋ 1
Loop
Exit Sub
比例税款_err:
MsgBox ″错误! error number:″ ＆ Err.Number ＆ Err.
Description
End Sub
至此，对各种情况下的工薪所得，其个人所得税的计算，我们均可顺利通过Excel来实现。明白了其中的道理，对“劳务报酬所得”、“个体工商户生产经营所得”等项目的个人所得税的电算化也就迎刃而解了。