【急！】如何从一个Excel表中提取数据，自动填入指定模板，生成多个sheet

cgwlz

我的问题不得不用VBA解决，但我的知识有限，望高手赐教，不胜感激！
压缩包里有一个文件《贷款案卷目录》，里面有好多行记录。现在需要数据表中的档案室室编、题名中的姓名+合同号，填到一个固定模板的sheet指定单元格里（模板里的行高宽不能改变，有个单元格中的1始终不变，最后一行的数值可让我自己来更改）此sheet需要自动生成。因数量太多，希望高手指教如何通过VBA实现自动生成，每个sheet姓名命名，谢谢！

约定的童话

你这模板能多点数据吗？

anabas

约定的童话 发表于 2019-12-9 09:20
你这模板能多点数据吗？

估计就是套打贷款合同封面而已，没有更多数据给看。或者其他的都是固定的，不方便放上来。
有2000多条数据记录，一个工作簿根本装不下这么多工作表，即便能装下，估计眼睛也花了。

IVYQQQQQ

解决问题的思路很重要，需求出来可能有很多思路和方法解决，不同的思路有效率也不一样。
很多人总认为自己说清楚了，其实要让其他人看懂你的需求，才能让别人更好的帮助你。

其实你的问题可能只是个简单的套打问题。

夸不得

IVYQQQQQ 发表于 2019-12-9 09:34
解决问题的思路很重要，需求出来可能有很多思路和方法解决，不同的思路有效率也不一样。
很多人总认为自己 ...

很多能把问题思路说清楚的人,都能找到解决的办法

阿诺斯瓦星呆

anabas 发表于 2019-12-9 09:31
估计就是套打贷款合同封面而已，没有更多数据给看。或者其他的都是固定的，不方便放上来。
有2000多条数 ...

坐等大神做出他的要求。第一只能VBA，不能其他手法，第二工作表名要求姓名，第三。。。。。。一个工作簿里面3000多条工作表，哪位大神能管理操作

阿诺斯瓦星呆

IVYQQQQQ 发表于 2019-12-9 09:34
解决问题的思路很重要，需求出来可能有很多思路和方法解决，不同的思路有效率也不一样。
很多人总认为自己 ...

不行，人家就是要VBA，不要什么邮件合并，死都要屌丝在你家门口。而且SHEET还要在一个工作簿内（微软目前只支持255个工作表，这个问题估计只能微软解决了），并且每个SHEET还得按姓名来命名。。。。。

wbperfect

Private Sub 批量打印模板()

Dim i As Long

For i = 5 To 3034

Sheets("贷款封面模板").Select
Sheets("贷款封面模板").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets(1).Cells(i, 3)
ActiveSheet.Cells(3, 8) = ActiveSheet.Name
ActiveSheet.Cells(4, 5) = Sheets(1).Cells(i, 4)
ActiveSheet.Cells(8, 10) = Sheets(1).Cells(i, 1)
Next
End Sub


红色两个sheet 不要动

wbperfect

.                                 

iwangyi

Sub C()
N = Range("A65536").End(xlUp).Row
For I = 5 To N
Set MYSH = Sheets.Add
MYSH.Name = Replace(Cells(I, 3), " ", "")
Sheets("贷款封面模板").Cells.Copy MYSH.Cells
With MYSH
.Cells(3, "H") = Cells(I, 3)
.Cells(4, "E") = Cells(I, 4)
.Cells(8, "J") = Cells(I, 1)
.Cells(13, "K") = Mid(Cells(I, 1), 14)
End With
Next