[已解决]生成前先删除

张雄友

根据A列名称生成工作表
但是生成前，先前除《总表》以外工作表的删除先，再生成。

最佳答案

月排行榜 / 总排行榜

qh8600

2014-12-21 15:43

1. Sub NewSheet()
   
2.     Application.ScreenUpdating = False
   
3.    Application.DisplayAlerts = False
   
4.     For Each sht In Worksheets
   
5.         If sht.Name <> "总表" Then
   
6.             sht.Delete
   
7.         End If
   
8.     Next
   
9.     For i = 1 To [a65536].End(xlUp).Row
   
10.         Sheets.Add after:=Sheets(Sheets.Count)
    
11.         Sheets(Sheets.Count).Name = Sheets("总表").Cells(i, 1)
    
12.     Next i
    
13.     Application.DisplayAlerts = True
    
14.     Application.ScreenUpdating = True
    
15.     Sheets("总表").Select
    
16. End Sub
    

复制代码

老张试试

跳转到最佳答案楼层

qh8600

1. Sub NewSheet()
   
2.     Application.ScreenUpdating = False
   
3.    Application.DisplayAlerts = False
   
4.     For Each sht In Worksheets
   
5.         If sht.Name <> "总表" Then
   
6.             sht.Delete
   
7.         End If
   
8.     Next
   
9.     For i = 1 To [a65536].End(xlUp).Row
   
10.         Sheets.Add after:=Sheets(Sheets.Count)
    
11.         Sheets(Sheets.Count).Name = Sheets("总表").Cells(i, 1)
    
12.     Next i
    
13.     Application.DisplayAlerts = True
    
14.     Application.ScreenUpdating = True
    
15.     Sheets("总表").Select
    
16. End Sub
    

复制代码

老张试试