Excel 2013：运行macros后，“我的单元格样式”菜单变得杂乱无章

这是Cell风格菜单问题的图片

运行macros将数据从一个工作簿复制到另一个工作簿后，我的单元格样式菜单变为空白。

这是我的macros代码：

Sheets("Calofic-Daily Sale Report").Select Range("E1:W67").Copy Dim wbk As Workbook Dim folderPath As String folderPath = Application.ActiveWorkbook.Path FilePath = Dir(folderPath & "\Today, Todate & Year to date Dispatch of Calofic ******.xlsx") Set wbk = Workbooks.Open(folderPath & "\" & FilePath) Set ws = wbk.Sheets("Sheet1") ws.Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False wbk.Close True End Sub 

Answer 1

看起来你可能有腐败的风格，无论你需要清理你的文件。 下面两个选项。

1.免费工具

build议您下载并运行XLGeek的免费xlStylesTool 。 一个辉煌的实用程序，比下面的手动方法好得多。

2.使用zip编辑xml
Edig在zip模式的worbook。 在链接消失的情况下添加以下步骤

• 将扩展名从xlsm或xlsb更改为zip
• 打开zip文件，导航到xl文件夹，并将styles.xml复制到一个方便的位置
• 用文本编辑器打开styles.xml。 find打开和closurescellstyles标签，并删除它们之间的一切。
• 保存该文件，并将其复制回压缩文件
• 恢复原来的扩展名。