但另存為xls格式後，修改xls格式的內容-保存-關閉-重新打開後，格式會發生變化(有時保存後會關閉，重新打開時不會發生變化，但有時保存後會出錯):重新打開後，表格行沒了，日期變成數字格式，公式等等，保存時不會提示錯誤。
建議使用此代碼刪除單元格格式中的壹些格式(如附件):
子測試()
Dim mystyle As Style
對於ActiveWorkbook中的每個mystyle。風格
如果我的風格。BuiltIn = False Then mystyle。刪除
然後
末端接頭