Excel出现不同的单元总结复习格格式太多解决规划方案.docVIP

原因：一个工作表常时间的使用，或经多人不同的编辑会使表格的格式 日积月累越来越多，以至在 2003 以下的版的用户打不开（或格式超过 4000 种） 大家可以去看看自己表格是否有过多的格式（色彩也是格式的一种）可 以在单元格样式中看到。 如何来清除过多的格式呢 解決方案： 打开出现“太多不同的储存格格式”的 Excel 文件； 第一步： “开发工具”－“ 进入 VB(Visual Basic) ”（如下图） 第二步：打开代码窗口，建模块，在代码窗口里 將‘ Sub RebuildDefaultStyles ’ ( 见附档 ) 档案中的內容 copy 进去，替换原來 的內容 第三步：运行代码（点击运行里选择“运行子过程 / 用户窗体”或直接 点击如图箭头所示） （如图） 第四步：看看工作表的格式是不是已去除了，如下图那些在使用过程 中留下的格式已除去了，只剩下 Excel 默认自带的格式。 你的工作表如果格式太多了，最好清一清，工作时尽量不要更换太 多不一样的格式。使用上述的办法不会对你的工作表内容更改。记得使 用过后把代码删了。 （文件占有空间也会变小） 附档 ： Sub RebuildDefaultStyles() The purpose of this macro is to remove all styles in the active workbook and rebuild the default styles. It rebuilds the default styles by merging them from a new workbook. Dimension variables. Dim MyBook As Workbook Dim tempBook As Workbook Dim CurStyle As Style Set MyBook to the active workbook. Set MyBook = ActiveWorkbook On Error Resume Next Delete all the styles in the workbook. For Each CurStyle In If Normal Then Select Case Case 20% - Accent1, 20% - Accent2, _ 20% - Accent3, 20% - Accent4, 20% - Accent5, 20% - Accent6, _ 40% - Accent1, 40% - Accent2, 40% - Accent3, 40% - Accent4, _ 40% - Accent5, 40% - Accent6, 60% - Accent1, 60% - Accent2, _ 60% - Accent3, 60% - Accent4, 60% - Accent5, 60% - Accent6, _ Accent1, Accent2, Accent3, Accent4, Accent5, Accent6, _ Bad, Calculation, Check Cell, Comma, Comma [0], Currency, _ Currency [0], Explanatory Text, Good, Heading 1, Heading 2, _ Heading 3, Heading 4, Input, Linked Cell, Neutral, Normal, _ Note, Output, Percent, Title, Total, Warning Text Do nothing, these are the default styles Case Else End Select Next CurStyle Open a new workbook. Set tempBook = Disable alerts so you may merge changes to the Normal style from the new workbook. = False Merge styles from the new workbook into the existing workbook. Workbook:=tempBook Enable alerts. = True Close the new workbook. End Sub