Excel新增Sheet再刪除並Save謎思 VBA

faye59

最近在做一些資料下載並分析整理程序，
因為下載的Sheet純粹只要做資料的排序分析，
分析完畢再將正確結果填入新增Sheet，
程序完畢後刪除下載Sheet並存檔。
然而發現以下程序會造成Excel檔案大小不斷增大，
不知道是什麼原因會增加檔案大小，
網上爬文查了很多相關訊息，
大多都是只Microsoft的Bug，
這問題已存在很久了，
或是各位先進有解決方式?

1. Sub ClearSheets()
   
2. Application.DisplayAlerts = False
   
3. Worksheets.Add Count:=5, Before:=Sheets(1)
   
4. Sheets(1).Name = "AAA": Sheets(1).Tab.ColorIndex = 3
   
5. Sheets(2).Name = "BBB": Sheets(2).Tab.ColorIndex = 3
   
6. Sheets(3).Name = "CCC": Sheets(3).Tab.ColorIndex = 3
   
7. Sheets(4).Name = "DDD": Sheets(4).Tab.ColorIndex = 3
   
8. Sheets(5).Name = "EEE": Sheets(5).Tab.ColorIndex = 4
   
9. Sheets("AAA").Delete
   
10. Sheets("BBB").Delete
    
11. Sheets("CCC").Delete
    
12. Sheets("DDD").Delete
    
13. Sheets("EEE").Delete
    
14. Application.DisplayAlerts = True
    
15. End Sub

複製代碼

a5007185

回復 1# faye59

如果是我，
我會選擇使用隱藏而不是刪除，
給你參考看看。