[已解决]实现批量转换

乐乐2006201506

将附件中个人晋升表总中的表格，批量转换成个人晋升表1,2,3的工作表……即总表中有多少表格就转换多少个工作表，每个工作表的格式同表1、表2的格式。

最佳答案

月排行榜 / 总排行榜

sry660

2016-4-7 10:01

1. Sub 生成子表()
   
2.     Dim imax&, i&, Sh As Worksheet
   
3.     imax = Sheets(1).[a65536].End(3).Row
   
4.     Application.ScreenUpdating = False
   
5.     For i = 1 To imax Step 21
   
6.         Sheets("模板").Copy After:=Sheets(Sheets.Count)
   
7.         n = n + 1
   
8.         Set Sh = ActiveSheet
   
9.         Sh.Name = "晋档个人表" & n
   
10.         With Sheets(1)
    
11.             .Range("a" & i & ":m" & i + 20).Copy Sh.[a1]
    
12.         End With
    
13.     Next
    
14.     Sheets(1).Activate
    
15.     MsgBox "工作表创建完毕！"
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码

跳转到最佳答案楼层

乐乐2006201506

谢谢你的指点。

乐乐2006201506

麻烦你看看。

sry660

1. Sub 生成子表()
   
2.     Dim imax&, i&, Sh As Worksheet
   
3.     imax = Sheets(1).[a65536].End(3).Row
   
4.     Application.ScreenUpdating = False
   
5.     For i = 1 To imax Step 21
   
6.         Sheets("模板").Copy After:=Sheets(Sheets.Count)
   
7.         n = n + 1
   
8.         Set Sh = ActiveSheet
   
9.         Sh.Name = "晋档个人表" & n
   
10.         With Sheets(1)
    
11.             .Range("a" & i & ":m" & i + 20).Copy Sh.[a1]
    
12.         End With
    
13.     Next
    
14.     Sheets(1).Activate
    
15.     MsgBox "工作表创建完毕！"
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码

乐乐2006201506

谢谢。

乐乐2006201506

虽然加了模板，但效果很好，尤其是当结束时使用了对话框提醒，很温馨。谢谢，让你费心了。

乐乐2006201506

sry660 发表于 2016-4-7 10:01

能解释一下三个录制宏的录制方法和注意事项吗？主要是想学会后在其他格式中应用，谢谢！