在Excel中可通過(guò)內(nèi)置或自定義的單元格樣式直接設(shè)置單元格格式，十分方便。而在Excel 2007/2010中，在“開(kāi)始”選項(xiàng)卡的“樣式”組中，單擊“單元格樣式”可在樣式庫(kù)中直接選擇，顯得更加方便。

有時(shí)會(huì)遇到這種情況，工作簿中的自定義單元格樣式非常多，需要將其全部刪除，如果手動(dòng)逐一操作顯得有些繁瑣，如下圖所示的自定義單元格樣式。

這時(shí)用下面的VBA代碼可一次刪除所有的自定義單元格樣式，方法如下。

1、按Alt+F11打開(kāi)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，打開(kāi)“宏”對(duì)話框，執(zhí)行“DelCustomStyles”宏即可一次刪除所有自定義單元格樣式，而內(nèi)置的單元格樣式會(huì)保留，如下圖。

說(shuō)明：刪除全部自定義單元格樣式后，對(duì)于應(yīng)用過(guò)這些樣式的單元格或區(qū)域，其單元格格式也會(huì)同時(shí)被清除。

來(lái)自：Excel技巧天地

鏈接：http://www./Article/excelvba/201203/933.html

●本文編號(hào)354，以后想閱讀這篇文章直接輸入354即可

●輸入m可以獲取到全部文章目錄

●輸入c可以獲取到全部動(dòng)畫下載地址