如何在一个excel sheet页中重复复制300个表格

nianyu911314

[img]file:///D:/qq/Users/1749885595/Image/W%60RIEARJT6M%60XP]6N6~L@YU.jpg[/img]
如题所示，需要在一张excel表格的一个sheet页中重复复制300个表格
单纯的ctril+C和c+v会累死，有没有快捷的办法？

fangyongshun

1. Sub 复制()
   
2. Application.ScreenUpdating = False
   
3. Dim sl As Long
   
4. shn = Sheets.Count
   
5. For sl = 2 To shn
   
6. Sheets(sl).Range("b5").CurrentRegion.Copy
   
7. Sheet1.Select
   
8. Range("a65536").End(xlUp).Offset(1, 0).Select
   
9. ActiveSheet.Paste
   
10. Next
    
11. Sheet1.Select
    
12. Range("a1").Select
    
13. Application.ScreenUpdating = True
    
14. MsgBox "复制完毕！"
    
15. End Sub
    
16. 
    

复制代码

wudixin96

汗，理解错了。