[已解决]求一个将所有工作表首行和最后三行删除的代码

溺水的老虎1

求大神给段删除所有工作表首行和最后三行的代码， 同时求一个能将所有工作表名称中。xlsx删除的代码

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-10-12 10:07

1. Sub aaa()
   
2. Dim j&
   
3. For j = 4 To Sheets.Count
   
4.   With Sheets(j)
   
5.     Union(.Rows(1), .Rows(.[a65536].End(3).Row - 2).Resize(3)).Delete
   
6.   End With
   
7. Next
   
8. End Sub
   
9. 
   
10. Sub bbb()
    
11. Dim sh As Worksheet
    
12. For Each sh In Worksheets
    
13.   sh.Name = Replace(sh.Name, ".xlsx", "")
    
14. Next
    
15. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim j&
   
3. For j = 4 To Sheets.Count
   
4.   With Sheets(j)
   
5.     Union(.Rows(1), .Rows(.[a65536].End(3).Row - 2).Resize(3)).Delete
   
6.   End With
   
7. Next
   
8. End Sub
   
9. 
   
10. Sub bbb()
    
11. Dim sh As Worksheet
    
12. For Each sh In Worksheets
    
13.   sh.Name = Replace(sh.Name, ".xlsx", "")
    
14. Next
    
15. End Sub

复制代码

溺水的老虎1

大灰狼1976 发表于 2017-10-12 10:07

谢谢大神~~！学习了~~