|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
张雄友 发表于 2013-12-12 13:34
当A列只有一个数时,会类型不匹配。 - Sub 个税()
- Dim arr, brr#(), i&, gs#, JE#
- arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
- ReDim brr(2 To UBound(arr), 1 To 1)
- With Application.WorksheetFunction
- For i = 2 To UBound(arr)
- JE = arr(i, 1) - 3500
- If JE > 0 Then
- Select Case JE
- Case Is <= 1500
- gs = JE * 0.03
- Case Is <= 4500
- gs = JE * 0.1 - 105
- Case Is <= 9000
- gs = JE * 0.2 - 555
- Case Is <= 35000
- gs = JE * 0.25 - 1005
- Case Is <= 55000
- gs = JE * 0.3 - 2755
- Case Is <= 80000
- gs = JE * 0.35 - 5505
- Case Is > 80000
- gs = JE * 0.45 - 13505
- End Select
- End If
- brr(i, 1) = .Round(gs, 2)
- Next
- End With
- [b2].Resize(i - 2) = brr
- End Sub
复制代码 |
|