怎么用宏实现：依据旧花名册项目生成新的花名册（明细表）

hhxq001

想用宏生成所有人的新的花名册（明细表），怎么用宏实现哦。

根据明细表模板的样式提取旧花名册的数据，创建新的花名册。

复件 个人审批表生成--宏批量处理--明细表-20140723.zip (24.81 KB, 下载次数: 15)

2014-7-23 16:28 上传

点击文件名下载附件

易安1

1. Private Sub CommandButton2_Click()
   
2. Dim i As Integer
   
3. With Sheets("花名册-数据源-勿删")
   
4.      i = .Cells(.Rows.Count, 1).End(3).Row
   
5.     .Range("a3:f" & i).Copy
   
6.      Sheets("明细表-模板").[a5].PasteSpecial xlPasteValues
   
7.     .Range("l3:l" & i).Copy
   
8.      Sheets("明细表-模板").[g5].PasteSpecial xlPasteValues
   
9.     .Range("n3:n" & i).Copy
   
10.      Sheets("明细表-模板").[h5].PasteSpecial xlPasteValues
    
11. End With
    
12. End Sub

复制代码

hhxq001

易安1 发表于 2014-7-23 19:09

没有解决的问题：

1、我要求依据明细表模板创建另外的表，不是在模板上直接生成；
2、如果模板只有20行，而花名册有50行，生成的新表后30行没有模板的格式，只有数值呢。

麻烦大侠再改改哦

能不能依据明细表模板第五行向下复制呢

易安1

看看吧 {:22:}{:22:}

hhxq001

易安1 发表于 2014-7-23 21:00
看看吧

明细表模板我在表头插入了一个公式行，看看怎么写代码。
另外，新生成的表的行高列宽要根据模板的行高列宽变化，怎么实现？

宏批量处理--明细表-插入公式后.zip (24.09 KB, 下载次数: 7)

2014-7-24 18:33 上传

点击文件名下载附件

易安1

hhxq001 发表于 2014-7-24 18:33
明细表模板我在表头插入了一个公式行，看看怎么写代码。
另外，新生成的表的行高列宽要根据模板的行高列 ...

能力有限 吃不消没完没了的改！坐等高手，我学习！

hhxq001

同求大侠出手相助