1、 Excel 出现“不同的储存 格式”解決方案原因：一个工作表常时间的使用，或经多人不同的编辑会使表格的格式日积月累越来越多，以至在 2003 以下的版的用户打不开（或格式超过 4000 种）大家可以去看看自己表格是否有过多的格式（色彩也是格式的一种）可以在单元格样式中看到。如何来清除过多的格式呢解決方案：打开出现“太多不同的储存格格式”的 Excel 文件；第一步：“开发工具”“进入 VB(Visual Basic)”（如下图）第二步：打开代码窗口，建模块，在代码窗口里將Sub RebuildDefaultStyles(见附档)档案中的內容 copy 进去，替换原來的內容第三步：运行代码（点
2、击运行里选择“运行子过程/用户窗体”或直接点击如图箭头所示）（如图）第四步：看看工作表的格式是不是已去除了，如下图那些在使用过程中留下的格式已除去了，只剩下 Excel 默认自带的格式。你的工作表如果格式太多了，最好清一清，工作时尽量不要更换太多不一样的格式。使用上述的办法不会对你的工作表内容更改。记得使用过后把代码删了。（文件占有空间也会变小）附档：Sub RebuildDefaultStyles()The purpose of this macro is to remove all styles in the activeworkbook and rebuild the default s
3、tyles.It rebuilds the default styles by merging them from a new workbook.Dimension variables.Dim MyBook As WorkbookDim tempBook As WorkbookDim CurStyle As StyleSet MyBook to the active workbook.Set MyBook = ActiveWorkbookOn Error Resume NextDelete all the styles in the workbook.For Each CurStyle In
4、MyBook.StylesIf CurStyle.Name “Normal“ Then CurStyle.DeleteSelect Case CurStyle.NameCase “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%
5、 - 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
6、2“, _“Heading 3“, “Heading 4“, “Input“, “Linked Cell“, “Neutral“, “Normal“, _“Note“, “Output“, “Percent“, “Title“, “Total“, “Warning Text“Do nothing, these are the default stylesCase ElseCurStyle.DeleteEnd SelectNext CurStyleOpen a new workbook.Set tempBook = Workbooks.AddDisable alerts so you may merge changes to the Normal stylefrom the new workbook.Application.DisplayAlerts = FalseMerge styles from the new workbook into the existing workbook.MyBook.Styles.Merge Workbook:=tempBookEnable alerts.Application.DisplayAlerts = TrueClose the new workbook.tempBook.CloseEnd Sub
