excel VBA批量刪除自定義單元格樣式

excel VBA批量刪除自定義單元格樣式

在Excel中可通過內置或自定義的單元格樣式直接設置單元格格式，十分方便。而在Excel 2007/2010中，在“開始”選項卡的“樣式”組中，單擊“單元格樣式”可在樣式庫中直接選擇，顯得更加方便。

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

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

1.按Alt+F11打開VBA編輯器，在代碼窗口中輸入下列代碼：

Sub DelCustomStyles()Dim st As StyleFor Each st In ActiveWorkbook.StylesIf Not st.BuiltIn Then st.DeleteNextEnd Sub

2.關閉VBA編輯器，返回Excel界面。按Alt+F8，打開“宏”對話框，執行“DelCustomStyles”宏即可一次刪除所有自定義單元格樣式，而內置的單元格樣式會保留，如下圖。

說明：刪除全部自定義單元格樣式后，對于應用過這些樣式的單元格或區域，其單元格格式也會同時被清除

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。