Excel出现“不同的储存格式”解决方案

Excel出現“不同的儲存格式”解決方案故障現象：如下圖

解決方案：

1、打開出現“太多不同的儲存格格式”的Excel文件

2、選擇“工具”－“巨集”－“巨集”（如下圖）

3、在“巨集名稱”裡輸入任意字符名稱，然後點擊“建立”（如下圖）

4、此時出現如下圖介面

5、將‘Sub RebuildDefaultStyles’(見附档)檔案中的內容copy進去，替換原來的內容（如圖1）。

點紅色執行，（如圖2）然後保存即可。

圖1

圖2

附档：

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 MyBook.Styles

'If https://www.360docs.net/doc/2f10731611.html, <> "Normal" Then CurStyle.Delete

Select Case https://www.360docs.net/doc/2f10731611.html,

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

CurStyle.Delete

End Select

Next CurStyle

'Open a new workbook.

Set tempBook = Workbooks.Add

'Disable alerts so you may merge changes to the Normal style

'from the new workbook.

Application.DisplayAlerts = False

'Merge styles from the new workbook into the existing workbook. MyBook.Styles.Merge Workbook:=tempBook

'Enable alerts.

Application.DisplayAlerts = True

'Close the new workbook.

tempBook.Close

End Sub