500个贫困学生资助情况登记表如何在sheet2打印sheet1表中500人一人一张表

vbee

500个贫困学生资助情况登记表如何在sheet2打印sheet1表中500人一人一张表

uynayna

500个贫困学生资助情况登记表如何在sheet2打印sheet1表中500人一人一张表.rar (12.73 KB, 下载次数: 12)

2017-9-12 15:01 上传

点击文件名下载附件

内容自己VLOOKUP吧，姓名我做了个例子。

dwgzy

可以把sheet2表建在Word中，使用邮件合并的方法就可以了。具体方法本论坛或百度可以搜一下。

Chip_Kenny

try this:

1. Sub zz()
   
2. Dim form, rng As Range, ar, a&, z&, n&, zzlx
   
3. ar = Sheets(1).[a1].CurrentRegion.Value
   
4. With Sheets(2)<div>'form = 按表格順序提取地址
   
5.     form = Split([b3].Address & "|" & [d3].Address & "|" & [f3].Address & "|" & _
   
6.     [b4].Address & "|" & [d4].Address & "|" & [d5].Address & "|" & _
   
7.     [b6].Address & "|" & [d6].Address & "|" & [f6].Address & "|" & _
   
8.     [b7].Address & "|" & [f7].Address & "|" & [b8].Address & "|" & _
   
9.     [b10].Address & "|" & [b18].Address & "|" & [e18].Address & "|" & _
   
10.     [b19].Address & "|" & [b20].Address, "|")
    
11.     Set rng = .[d10:g17]
    
12.     a = .[L1]
    
13.     z = .[L2]
    
14.     For i = a To z
    
15.         n = 0
    
16.         For j = 1 To 13
    
17.             .Range(form(n)) = ar(i + 1, j + 1): n = n + 1
    
18.         Next
    
19.         zzlx = ar(i + 1, j + 1) '资助类型
    
20.         For j = 14 To 17
    
21.             rng(zzlx, j - 13) = ar(i + 1, j + 1)
    
22.         Next
    
23.         For j = 18 To 21
    
24.             .Range(form(n)) = ar(i + 1, j + 1): n = n + 1
    
25.         Next
    
26.         .[i1] = i
    
27.         .[a1:g20].PrintOut 1
    
28.     Next
    
29. End With
    
30. End Sub</div>

复制代码

Chip_Kenny

詳看附件。

Chip_Kenny

換了zip格式，希望你能開到。

zhucexin

谢谢大家的帮忙哦