Excel出現(xiàn)“不同的單元格格式太多”解決方案

原因：一個(gè)工作表常時(shí)間的使用，或經(jīng)多人不同的編輯會(huì)使表格的格式日積月累越來(lái)越多，以至在2003以下的版的用戶(hù)打不開(kāi)（或格式超過(guò)4000種）大家可以去看看自己表格是否有過(guò)多的格式（色彩也是格式的一種）可以在單元格樣式中看到。如何來(lái)清除過(guò)多的格式呢解決方案：打開(kāi)出現(xiàn)“太多不同的儲(chǔ)存格格式”的Excel文件；第一步：“開(kāi)發(fā)工具”一“進(jìn)入VB（VisualBasic）”（如下圖）第二步：打開(kāi)代碼窗口，建模塊，在代碼窗口里將‘SubRebuildDefaultStyles'（見(jiàn)附檔）檔案中的內(nèi)容copy進(jìn)去，替換原來(lái)的內(nèi)容第三步：運(yùn)行代碼（點(diǎn)擊運(yùn)行里選擇“運(yùn)行子過(guò)程/用戶(hù)窗體”或直接點(diǎn)擊如圖箭頭所示）（如圖）第四步：看看工作表的格式是不是已去除了，如下圖那些在使用過(guò)程中留下的格式已除去了，只剩下Excel默認(rèn)自帶的格式。你的工作表如果格式太多了，最好清一清，工作時(shí)盡量不要更換太多不一樣的格式。使用上述的辦法不會(huì)對(duì)你的工作表內(nèi)容更改。記得使用過(guò)后把代碼刪了。（文件占有空間也會(huì)變小）附檔：SubRebuildDefaultStyles()'Thepurposeofthismacroistoremoveallstylesintheactive'workbookandrebuildthedefaultstyles.'Itrebuildsthedefaultstylesbymergingthemfromanewworkbook.'Dimensionvariables.DimMyBookAsWorkbookDimtempBookAsWorkbookDimCurStyleAsStyle'SetMyBooktotheactiveworkbook.SetMyBook=ActiveWorkbookOnErrorResumeNext'Deleteallthestylesintheworkbook.ForEachCurStyleIn'If<>"Normal"ThenSelectCaseCase"20%-Accent1","20%-Accent2","20%-Accent3","40%-Accent1","40%-Accent5","60%-Accent3","20%-Accent4","40%-Accent2","40%-Accent6","60%-Accent4","20%-Accent5","40%-Accent3","60%-Accent1","60%-Accent5","20%-Accent6","40%-Accent4","60%-Accent2","60%-Accent6","Accent1","Accent2","Accent3","Accent4","Accent5","Accent6","Bad","Calculation","CheckCell","Comma","Comma[0]","Currency","Currency[0]","ExplanatoryText","Good","Heading1","Heading2","Accent1","Accent2","Heading3","Heading4","Input","LinkedCell","Neutral","Normal","Note","Output","Percent","Title","Total","WarningText"'Donothing,thesearethedefaultstylesCaseElseEndSelectNextCurStyle'Openanewworkbook.SettempBook='DisablealertssoyoumaymergechangestotheNormalstyle'fromthenewworkbook.=False'Mergestylesfromthenewworkbookint