[已解决]历遍工作表插入列数据的问题

李全有

附件 历遍工作表插入数据.zip (424.38 KB, 下载次数: 2)

2015-4-19 18:29 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2015-4-19 19:00

1. Sub Macro1()
   
2. Sheets("Sheet0").Activate
   
3. For j = 1 To Sheets.Count
   
4.     With Sheets(j)
   
5.         If .Name <> "Sheet0" Then
   
6.             [l:l].Copy .Cells(1, "l")
   
7.             [o:q].Copy .Cells(1, "o")
   
8.         End If
   
9.     End With
   
10. Next
    
11. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Sheets("Sheet0").Activate
   
3. For j = 1 To Sheets.Count
   
4.     With Sheets(j)
   
5.         If .Name <> "Sheet0" Then
   
6.             [l:l].Copy .Cells(1, "l")
   
7.             [o:q].Copy .Cells(1, "o")
   
8.         End If
   
9.     End With
   
10. Next
    
11. End Sub

复制代码