删除所有自定义单元格样式 EXCEL

Question

是否可以删除工作簿中的所有自定义/创建的单元格样式？只保留默认样式。

不必一一删除

Answer 1

试试这个小的 VBA 宏：

Sub StyleKiller()
    Dim N As Long, i As Long

    With ActiveWorkbook
        N = .Styles.Count
        For i = N To 1 Step -1
            If Not .Styles(i).BuiltIn Then .Styles(i).Delete
        Next i
    End With
End Sub

这解决了内置与自定义问题。请注意，我们向后运行循环以避免破坏循环索引。

Answer 2

要在不使用的情况下简单地删除所有内容INDEX，请尝试以下操作：

Sub StyleKiller()
    Dim st As Style
    On Error Resume Next
    For Each st In ActiveWorkbook.Styles
      If Not st.BuiltIn Then
        st.Delete
      End If
    Next
    On Error GoTo 0
End Sub