用vba代码删除样式设置中所有的样式，并恢复为默认样式

以下是一个示例VBA代码，可以删除样式设置中所有的样式，并恢复为默认样式：

Sub RemoveAllStyles()

Dim sty As Style

For Each sty In ActiveWorkbook.Styles
'检查样式是否为用户定义的样式
If Not sty.BuiltIn Then
sty.Delete
End If
Next sty

'恢复为默认样式
ActiveWorkbook.Styles("Normal").Font.Name = "Calibri"
ActiveWorkbook.Styles("Normal").Font.Size = 11
ActiveWorkbook.Styles("Normal").Font.ColorIndex = xlAutomatic
ActiveWorkbook.Styles("Normal").Interior.Pattern = xlNone
ActiveWorkbook.Styles("Normal").Interior.ColorIndex = xlAutomatic
ActiveWorkbook.Styles("Normal").NumberFormat = "General"

End Sub

该代码会遍历所有样式，并删除所有用户定义的样式。然后，它将“Normal”样式的字体设置为Calibri，大小设置为11，颜色设置为自动，内部设置为无图案，颜色设置为自动，数字格式设置为“常规”。这样就可以将工作簿恢复为默认样式。