个税表：根据明细表创建申报表

水月芽

工作中，我一直采用条件函数根据工作表一（明细表）的人名，生成后面申报表。但无法解决两个问题：一、链接只能创建8个工作表，第9个就无法用了；二、无法自动以人名为各工作表名称。
希望各位LD能帮我解决，谢谢，为感！

cbg2008

要自动以人名为各工作表名称，必须用VBA实现，函数无法实现

开心妙妙

计算表.rar (24.08 KB, 下载次数: 20)

2014-3-11 08:15 上传

点击文件名下载附件

水月芽

非常感谢妙妙的帮忙！！
但运行中发现两个问题：1、同名同姓会出错，我后加括号，能克服；2、表中的数据无法与明细表各人数据配合，仅为模板的数据。
明细表有：年所得额、应纳税所得额、税款合计、已交、应补交五项数据，分别对应模板的第11行的年所得额（境内）、应纳税所得额、应纳税额、已缴（扣）税额、应补税额。
谢谢！！


               

fffox

水月芽 发表于 2014-3-11 09:17
非常感谢妙妙的帮忙！！
但运行中发现两个问题：1、同名同姓会出错，我后加括号，能克服；2、表中的数据无 ...

1. Sub 个税申报()
   
2.     Dim Arr, i%
   
3.     On Error Resume Next
   
4.     Arr = Sheets(1).Range("a1").CurrentRegion.Value
   
5.     Application.ScreenUpdating = False
   
6.     For i = 2 To UBound(Arr)
   
7.         Sheets("申报表").Copy after:=Sheets(Sheets.Count)
   
8.         With Sheets(Sheets.Count)
   
9.             .Name = Arr(i, 3)
   
10.             If Err.Number <> 0 Then .Name = Arr(i, 3) & i
    
11.             .[b5] = Arr(i, 3)
    
12.             .[i5] = Arr(i, 4)
    
13.             .[c11] = Arr(i, 5)
    
14.             .[f11] = Arr(i, 6)
    
15.             .[g11] = Arr(i, 7)
    
16.             .[h11] = Arr(i, 8)
    
17.             .[g11] = Arr(i, 10)
    
18.         End With
    
19.     Next
    
20. End Sub

复制代码

水月芽

感谢FOX，我刚自己把妙妙的试着编了下，解决了第二个问题了，一会我再试试你的，谢谢！