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

以下是一个示例VBA代码，可以删除样式设置中所有的样式，并恢复为默认样式： Sub Re[move](https://geek.csdn.net/educolumn/1017fe3bbe75a8f0c3f4fe48f3af73ee?spm=1055.2569.3001.10083)AllStyles() 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 = xl[auto](https://geek.csdn.net/educolumn/0ed23d107a440608894f63cac98e73fb?spm=1055.2569.3001.10083)m[ati](https://geek.csdn.net/educolumn/150d7073277950db5f09620704e791cf?spm=1055.2569.3001.10083)c ActiveWorkbook.Styles("Normal").Interior.Pattern = xlNone ActiveWorkbook.Styles("Normal").Interior.ColorIndex = xl[auto](https://geek.csdn.net/educolumn/0ed23d107a440608894f63cac98e73fb?spm=1055.2569.3001.10083)m[ati](https://geek.csdn.net/educolumn/150d7073277950db5f09620704e791cf?spm=1055.2569.3001.10083)c ActiveWorkbook.Styles("Normal").NumberFormat = "General" End Sub 该代码会遍历所有样式，并删除所有用户定义的样式。然后，它将“Normal”样式的字体设置为Calibri，大小设置为11，颜色