[已解决]求精简代码

lingyuncelia

Sub 宏1()
Sheets("Sheet1").Select
Rows("1:11").Select
Selection.Copy
Sheets("Sheet2").Select
Rows("1:1").Select
ActiveSheet.Paste
Sheets("Sheet3").Select
Rows("1:1").Select
ActiveSheet.Paste
……
Sheets("Sheet58").Select
Rows("1:1").Select
ActiveSheet.Paste


End Sub

最佳答案

月排行榜 / 总排行榜

qh8600

2014-12-2 10:44

1. Sub demo()
   
2.     For i = 2 To 58
   
3.         Sheets(1).Rows("1:11").Copy Sheets(i).Range("a1")
   
4.     Next
   
5. End Sub
   

复制代码

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     For i = 2 To 58
   
3.         Sheets(1).Rows("1:11").Copy Sheets(i).Range("a1")
   
4.     Next
   
5. End Sub
   

复制代码