求助，excel 两个数据表互换功能

冬蝉大官人

在一个excel 文件里，
第一个sheet表是一个人员信息表，每行包含姓名，身份证号，性别三种信息。
第二个、第三个、第N个sheet表，每个表中有一个报表模板，类似于个人简历。
我要实现的就是怎么自动把第一个sheet表里的个人信息自动填写到对应的模板位置，因为有几百人。

比如sheet2 中的 B1 D1 F1 分别对应sheet1 中的 B1 C1 D1，然后sheet3中的 B1 D1 F1  对应 sheet1中的B2 C2 D2.


该贴已经同步到 冬蝉大官人的微博

jack5d

煩請附件,空想不明

grf1973

是不是和这样差不多？

grf1973

来个简单的。

1. Sub 生成()
   
2.     With Sheet1
   
3.         arr = .[b1].CurrentRegion
   
4.         For i = 2 To UBound(arr)
   
5.             Worksheets.Add after:=Worksheets(Worksheets.Count)
   
6.             Set wb = ActiveSheet
   
7.             wb.Name = arr(i, 1)
   
8.             wb.[b1] = arr(i, 1)
   
9.             wb.[d1] = arr(i, 2)
   
10.             wb.[f1] = arr(i, 3)
    
11.         Next
    
12.         .Select
    
13.     End With
    
14.    
    
15. End Sub
    
16. 
    
17. Sub 删除()
    
18. Application.DisplayAlerts = False
    
19.     For Each sh In Worksheets
    
20.         If sh.Index <> 1 Then sh.Delete
    
21.     Next
    
22. Application.DisplayAlerts = True
    
23. End Sub
    

复制代码