在Excel中可通過內(nèi)置或自定義的單元格樣式直接設(shè)置單元格格式,十分方便。而在Excel 2007/2010中,在“開始”選項卡的“樣式”組中,單擊“單元格樣式”可在樣式庫中直接選擇,顯得更加方便。
有時會遇到這種情況,工作簿中的自定義單元格樣式非常多,需要將其全部刪除,如果手動逐一操作顯得有些繁瑣,如下圖所示的自定義單元格樣式。
這時用下面的VBA代碼可一次刪除所有的自定義單元格樣式,方法如下。
1.按Alt+F11打開VBA編輯器,在代碼窗口中輸入下列代碼:
Sub DelCustomStyles()
Dim st As Style
For Each st In ActiveWorkbook.Styles
If Not st.BuiltIn Then st.Delete
Next
End Sub
2.關(guān)閉VBA編輯器,返回Excel界面。按Alt+F8,打開“宏”對話框,執(zhí)行“DelCustomStyles”宏即可一次刪除所有自定義單元格樣式,而內(nèi)置的單元格樣式會保留,如下圖。
說明:刪除全部自定義單元格樣式后,對于應(yīng)用過這些樣式的單元格或區(qū)域,其單元格格式也會同時被清除