删除Excel二进制工作簿(xlsb)中无法删除的自定义样式求助

针对你遇到的XLSB文件里残留的特殊自定义样式（带特殊符号或仅下划线命名），常规方法删不掉的情况，可以用以下针对性VBA宏强制清理：

Sub DeleteAllCustomStyles()
    Dim sty As Style
    Dim defaultStyles As Variant
    Dim isDefault As Boolean
    Dim i As Integer
    
    ' 定义Excel默认内置样式名称
    defaultStyles = Array("常规", "货币", "货币[0]", "会计专用", "短日期", "长日期", "时间", "百分比", "分数", "科学记数", "文本", "特殊", "超级链接", "跟随超级链接", "合并后居中", "标题", "标题1", "标题2", "标题3", "标题4", "副标题", "强调文字颜色1", "强调文字颜色1 淡色40%", "强调文字颜色2", "强调文字颜色2 淡色40%", "强调文字颜色3", "强调文字颜色3 淡色40%", "强调文字颜色4", "强调文字颜色4 淡色40%", "强调文字颜色5", "强调文字颜色5 淡色40%", "强调文字颜色6", "强调文字颜色6 淡色40%", "注释标题", "注释文本", "信息性单元格", "警告文本", "错误文本", "好", "差", "中性", "计算", "检查单元格", "已注释", "输入", "链接单元格", "已锁定", "未锁定", "条件格式", "数据条", "色阶", "图标集")
    
    ' 遍历所有样式
    For Each sty In ThisWorkbook.Styles
        isDefault = False
        ' 检查是否为默认内置样式
        For i = LBound(defaultStyles) To UBound(defaultStyles)
            If sty.NameLocal = defaultStyles(i) Then
                isDefault = True
                Exit For
            End If
        Next i
        
        ' 不是默认样式则尝试删除
        If Not isDefault Then
            On Error Resume Next ' 忽略被锁定或正在使用的样式错误
            sty.Delete
            On Error GoTo 0
        End If
    Next sty
    
    MsgBox "自定义样式清理完成（已跳过无法强制删除的关联样式）"
End Sub

操作步骤： #

1. 打开目标XLSB文件，先备份一份，避免操作失误丢失数据
2. 按下Alt + F11打开VBA编辑器
3. 右键点击左侧工程窗口中的当前工作簿，选择「插入」→「模块」
4. 将上面的代码粘贴到模块窗口中
5. 按下F5运行宏，或点击工具栏的运行按钮

额外处理建议： #

如果仍有样式删不掉，大概率是这些样式被绑定到了隐藏工作表、图表、形状或数据透视表上：

• 先显示所有隐藏工作表（右键工作表标签→「取消隐藏」）
• 选中所有工作表，按Ctrl + A全选单元格，设置单元格样式为「常规」
• 检查所有图表、形状，将它们的文本框、填充样式重置为默认

内容的提问来源于stack exchange，提问作者ChartProblems