Excel 2013：运行宏后，我的单元格样式菜单变得混乱

Question

This is the picture of Cell style menu problems

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

这是我宏的代码：

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。免费工具

建议您下载并运行XLGeek的免费xlStylesTool。一个出色的实用工具，比下面的手动方法要好得多。

<强> 2。使用zip编辑xml
编辑zip mode中的worbook。这样做的步骤在下面添加，以防链接永远消失

• 将扩展名从xlsm或xlsb更改为zip
• 打开zip文件，导航到xl文件夹，然后将styles.xml复制到方便的位置
• 使用文本编辑器打开styles.xml。找到打开和关闭cellstyles标记，并删除它们之间的所有内容。
• 保存文件，然后复制回zip文件
• 恢复原始扩展程序。