Question

我在Excel 2016中使用了一个大型工作簿，似乎已将大量自定义样式导入到工作簿中，并且正在弄乱工作簿中单元格的格式。我尝试使用以下代码删除自定义样式

Sub clear_all_styles()

Dim styT As Style

For Each styT In ActiveWorkbook.Styles
    If styT.BuiltIn = False Then
        styT.Locked = False
        styT.Delete
    End If
Next styT

End Sub

但是当我执行代码时，样式仍然列在样式功能区中。此外，当我尝试通过右键单击来手动删除样式时，它们不会被删除。

任何想法我做错了什么？

Answer 1

你可以尝试

RewriteEngine on
RewriteCond $1 !^(index\.php|public|\.txt)
RewriteCond %{REQUEST_FILENAME} !-f
RewriteCond %{REQUEST_FILENAME} !-d
RewriteRule ^(.*)$ index.php?$1

End Sub

Answer 2

只需继续这样删除即可：

Sub DeleteStyles()
    For Each sty In ActiveWorkbook.Styles
        If Not sty.BuiltIn Then
            sty.Delete
        End If
    Next sty
End Sub

无法在Excel 2016中删除自定义样式

2 个答案: