用Excel計算個人工資所得稅的四套方案(轉)

用Excel計算個人工資所得稅的四套方案(轉)[@more@]

　　一、個人工薪所得納稅相關背景知識

　　1、個人取得的工資、薪金所得，是指個人因任職或者受僱而取得的工資、薪金、獎金、年終加薪、勞動分紅、津貼、補貼以及與任職或受僱有關的其他所得。

　　個人所得稅是對按稅法規定具有納稅義務的中國公民和外籍人員的個人收入或所得徵收的一種稅。

　　2、工資、薪金所得專案稅率表：

級數	全月應納稅所得額	稅率 (%)	速算扣除數 ( 元 )
1	不超過 500 元的部分	5	0
2	超過 500 元至 2000 元的部分	10	25
3	超過 2000 元至 5000 元的部分	15	125
4	超過 5000 元至 20000 元的部分	20	375
5	超過 20000 元至 40000 元的部分	25	1375
6	超過 40000 元至 60000 元的部分	30	3375
7	超過 60000 元至 80000 元的部分	35	6375
8	超過 80000 元至 100000 元的部分	40	10375
9	超過 100000 元的部分	45	15375

表1

　　3、工資、薪金所得按以下步驟計算繳納個人所得稅：

　　每月取得工資收入後，先減去個人承擔的基本養老保險金、醫療保險金、失業保險金，以及按省級政府規定標準繳納的住房公積金，再減去費用扣除額 1600 元 / 月（來源於境外的所得以及外籍人員、華僑和香港、澳門、臺灣同胞在中國境內的所得每月還可附加減除費用 3200 元），為應納稅所得額，按 5% 至 45% 的九級超額累進稅率計算繳納個人所得稅。

　　計算公式是：應納個人所得稅稅額 = 應納稅所得額×適用稅率—速算扣除數

　　例：王某當月取得工資收入 9000 元，當月個人承擔住房公積金、基本養老保險金、醫療保險金、失業保險金共計 1000 元，費用扣除額為 1600 元，則王某當月應納稅所得額 =9000-1000-1600=6400 元。應納個人所得稅稅額 =6400 × 20%-375=905 元。

　　4、個人取得工資、薪金所得應繳納的個人所得稅，統一由支付人負責代扣代繳，支付人是稅法規定的扣繳義務人。

　　5、根據十屆全國人大常委會第十八次全體會議《關於修改〈中華人民共和國個人所得稅法〉的決定》，自 2006 年 1 月 1 日起 ，工薪所得個調稅起徵點執行中國公民 1600 元、外籍人士 4800 元的標準，計徵方法仍執行原定九級累進方案（如表 1 所示）。

　二、工薪所得個調稅的 Excel 計算解決方案

	A	B	C	D	E	F	G	H	I
1	計稅工資 應納稅額 稅後工資 1000 0 1000 10000 1305 8695 100000 28985 71015				級數	累進區間	下限	稅率	扣除數
2					1	<500	0	5%	0
3					2	500-2000	500	10%	25
4					3	2000-5000	2000	15%	125
5					4	5000-20000	5000	20%	375
6					5	20000-40000	20000	25%	1375
7					6	40000-60000	40000	30%	3375
8					7	60000-80000	60000	35%	6375
9					8	80000-100000	80000	40%	10375
10					9	>100000	100000	45%	15375

表2

　　C2 =IF(A2<>"",A2-B2,"")

　　【方案一】—— IF 巢狀版：

　　B2 =IF(AND(A2>0,A2<=1600),0,IF(AND(A2>1600,A2<=2100),ROUND((A2-1600)*0.05,2),IF(AND(A2>2100,A2<=3600),ROUND((A2-1600)*0.1-25,2),IF(AND(A2>3600,A2<=6600),ROUND((A2-1600)*0.15-125,2),IF(AND(A2>6600,A2<=21600),ROUND((A2-1600)*0.2-375,2),IF(AND(A2>21600,A2<=41600),ROUND((A2-1600)*0.25-1375,2),IF(AND(A2>41600,A2<=61600),ROUND((A2-1600)*0.3-3375,2),"")))))))

　　優點：簡單明瞭，上手容易

　　缺點：if() 函式巢狀最多隻能七層，而個調稅計徵採用的是九級累進，所以這個公式適用的月收入上限是 6 萬。

　　【方案二】——輔助資料版：

　　在 E、F、G、H、I 五列插入輔助列(如表 2 所示)。

　　B2 =IF(A2<>"",ROUND(IF(A2>1600,A2-1600,0)*VLOOKUP(VLOOKUP(IF(A2>1600,A2-1600,0),$G$2:$G$10,1),$G$2:$I$10,2)-VLOOKUP(VLOOKUP(IF(A2>1600,A2-1600,0),$G$2:$G$10,1),$G$2:$I$10,3),2),"")

　　優點：克服 IF() 巢狀只能七層的缺陷，涵蓋整個累進區間。累進演算法資料獨立，便於維護。公式也比較簡潔，可讀性強。

　　缺點：需要藉助於輔助列，可移植性不強。

　　【方案三】——陣列公式版：

　　B2: {=IF(A2<>"",ROUND(IF(AND(A2>0,A2<=1600),0,SUM(IF((A2-1600>={0,500,2000,5000,20000,40000,60000,80000,100000})+(A2-1600

　　優點：同樣克服了 IF 巢狀版不能涵蓋全部九級累進區間的缺陷，且公式內資料相對容易維護，整個公式維護起來也比較簡單。

　　缺點：陣列公式的操作方法比較獨特，每次修改後都要用“ Ctrl+Shift+Enter ”組合鍵加以識別，且可擴充套件性不如在後臺執行的 VBA 程式碼。

　　P.S. ：

　　“陣列公式：陣列公式對一組或多組值執行多重計算，並返回一個或多個結果。陣列公式括於大括號 ({ }) 中。按 Ctrl+Shift+Enter 可以輸入陣列公式。”

　　【方案四】—— VBA 程式碼版：

　　“工具” -- 》“宏” -- 》“ Visual Basic 編輯器” -- 》“插入” -- 》“模組”

　　============= 複製以下程式碼至編輯視窗 ================

　　'計算個人收入調節稅 (Individual Income Adjustment Tax)

　　Function iiatax(x,y)

　　Dim basicnum As Integer

　　Dim downnum As Variant, upnum As Variant, ratenum As Variant, deductnum As Variant

　　If y = 0 Then

　　basicnum = 1600 '定義中國公民個稅起徵點

　　ElseIf y = 1 Then

　　basicnum = 4800 '定義外國公民個稅起徵點

　　Else: basicnum = Null

　　End If

　　downnum = Array(0, 500, 2000, 5000, 20000, 40000, 60000, 80000, 100000) '定義累進區間下限

　　upnum = Array(500, 2000, 5000, 20000, 40000, 60000, 80000, 100000, 100000000) '定義累進區間上限

　　ratenum = Array(0.05, 0.1, 0.15, 0.2, 0.25, 0.3, 0.35, 0.4, 0.45) '定義累進稅率

　　deductnum = Array(0, 25, 125, 375, 1375, 3375, 6375, 10375, 15375) '定義累進速算扣除數

　　If IsNumeric(x) = False Then

　　MsgBox ("請檢查計稅工資是否為數值！")

　　End If

　　If x < 0 Then

　　MsgBox ("計稅工資為負，重新輸入！")

　　End If

　　If x >= 0 And x < basicnum Then

　　iiatax = 0

　　End If

　　For i = 0 To UBound(downnum)

　　If x - basicnum > downnum(i) And x - basicnum <= upnum(i) Then

　　iiatax = Round( ( x - basicnum ) * ratenum(i) - deductnum(i), 2)

　　End If

　　Next i

　　End Function

　　============= 複製以上程式碼至編輯視窗 ================

　　P.S. ：

　　1、iiatax(引數1,引數 2 ），引數 1 引用計稅工資，引數 2 用“ 0 ” 表示中國公民的所得稅起徵點，用“ 1 ” 表示外國公民的起徵點。

　　2、使用時可以像使用函式一樣，如“ B2=iiatax(A2,0) ”，或者“ B2=iiatax(6500,1) ”。