Excel電子表格工作簿減肥秘招

2024-08-23 19:36:00

字體：大中小

供稿：網(wǎng)友

很多用戶都遇到過Excel 文件在使用過程中不斷增肥，反應(yīng)越來越遲鈍的現(xiàn)象，甚至發(fā)生文件損壞而丟失重要數(shù)據(jù)的可怕事件。如果是因為有大量數(shù)據(jù)的輸入，那么文件體積增加也無可非議，此時應(yīng)該通過優(yōu)化表結(jié)構(gòu)、把數(shù)據(jù)分散保存到多個工作簿文件的方法來減小單個文件的體積。然而，在很多時候，這些擁有“臃腫”身材的工作簿文件里面只有少量的數(shù)據(jù)，那么，它是怎么“肥”起來的呢？
本技巧中會羅列一些常見的Excel 文件體積虛增的原因及處理辦法。
1 工作表中存在大量的細(xì)小圖形對象
工作表中如果存在大量的細(xì)小圖形對象，那么文件體積就可能在用戶毫不知情的情況下暴增，這是一種很常見的“Excel 肥胖癥”。可以使用下面兩種方法來檢查Excel 工作表是否存在這種癥狀。
（1）在工作表中按鍵調(diào)出“定位”對話框，單擊“定位條件”按鈕，在“定位條件”對話框中選擇“對象”項，單擊“確定”，如圖1 所示。然后觀察工作表上是否會顯示很多被選定的對象。

如果工作簿中包含多個工作表，需要在每個工作表中用這種方法進(jìn)行查找。關(guān)于“定位”功能的更多技巧，請參閱技巧28。
注意：隱藏列或行中的對象利用這種方法無法被看到。
（2）用VBA 對工作簿中的對象進(jìn)行計數(shù)，查看在每個工作表中實際存在的對象數(shù)量，如果此數(shù)量不合理，就說明有問題。按打開VBA 編輯器窗口，單擊菜單“插入”→“模塊”來插入一個新模塊，默認(rèn)情況下為“模塊1”，然后在模塊1 的代碼窗口中輸入以下代碼：
Sub CountShapes()
Dim n As Double
Dim ws As Worksheet
Dim Content As String
For Each ws In Worksheets
n = ws.Shapes.Count
Content = Content & "工作表" & ws.Name & " 有" & n & " 個對象" & vbCrLf
Next
MsgBox Content
End Sub
最后，按F5 鍵來運(yùn)行這段代碼，就能看到檢查結(jié)果。在看似空白的工作表中，存在著大量的圖形對象，如圖2 所示。