当您与使用Excel的其他人一起工作时，通常将工作表从他们的工作簿复制到您自己的工作簿中。当您这样做时，工作表并不是唯一要复制的东西-Excel还将其格式设置样式复制到您的工作簿中。手动删除不需要的样式可能会很麻烦，具体取决于样式的数量。但是，如果使用宏，则删除用户定义的样式非常容易。以下宏将快速删除不需要的样式：

Sub StyleKill()

Dim styT As Style     Dim intRet As Integer

For Each styT In ActiveWorkbook.Styles         If Not styT.BuiltIn Then             intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo)

If intRet = vbYes Then styT.Delete         End If     Next styT End Sub

宏只需要一点用户输入。只要宏检测到用户定义的样式，就会询问您是否要删除它。单击是按钮将导致样式从工作簿中删除。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2135）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

删除不需要的样式。