一些囉嗦的話：同事一個office ,excel檔有五個工作表，打開時非常慢的。進去後其中只要點擊到兩個工作表其中一個就很卡甚至沒響應。試用wps打開流暢。
但她堅持要用office說用慣了，沒辦法女人。
這個文檔接近3M，都是一些數據也沒見有圖片之類，以爲有公式或引用外面數據導致的，隱藏表格？看了一下沒有。
然後存了一個副本。刪了其他三個工作表，剩下這兩個導致卡的工作表，還是很卡，然後再把這兩個工作表裏的內容全刪了。保存，打開和編輯還是很卡！
一看文檔還有1.8M！...？明明兩個表格都沒有東西了，還有1.8M還是卡爆。
這要找有什麼東西在裏面了。
這裏可以說是方法1：直接ctrl+g（或者F5），定位條件，對象。在轉圈圈。可以肯定不知道她怎麼多次複製過來或者插入很重複的東西了。
本來想着查出來直接按del刪掉，正常來說這樣操作就可以了。
怎知她這個差不多二十分鐘還卡着不動了。
沒辦法，用VBA了。
這裏可以說是方法2：先看看裏面這個是什麼東西。
Sub delobj()
For Each s In Sheet1.Shapes
Debug.Print (s.Name)
Next
End Sub
難怪卡死了。
處理；
Sub delobj()
For Each s In Sheet1.Shapes
If s.Type = 17 Then
s.Delete
End If
Next
End Sub
運行時也會沒響應，稍等幾分鐘就可以。
運行完後，文檔也很小了，excel文檔打開編輯都很流暢了。
這裏可以說是方法3：後來網上查到還有一種方法，
將該文檔改爲壓縮文件，打開xl-drawings-drawing1.xml ,drawing2.xml 刪除
再改爲xlsx文件，打開。