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

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

这是我的宏的代码：

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

---

看起来您可能有损坏的样式，无论您需要清理文件的是哪种样式。下面有两个选项

1。免费工具

建议您免费下载并运行XLGeek。这是一个非常好的实用程序，比下面的手动方法要好得多

2。使用zip编辑xml
艾迪格把书收了进来。如果链接消失，请在下面添加这样做的步骤

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

---

看起来您的样式可能已损坏，无论您需要清理文件的是哪种样式。下面有两个选项

1。免费工具

建议您免费下载并运行XLGeek。这是一个非常好的实用程序，比下面的手动方法要好得多

2。使用zip编辑xml
艾迪格把书收了进来。如果链接消失，请在下面添加这样做的步骤

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

---

您仅粘贴值。你也需要复制格式。我对“单元格样式菜单”有问题，你可以在图片中看到，在运行这个marcos之后。我尝试粘贴值和格式，但菜单没有恢复正常。您是否尝试过打开清晰工作簿的测试？您的.xlsx可能已损坏。单元格样式菜单中的内容与“空白”相反。有很多自定义样式。但是，您显示的代码不能因此受到指责。不存在

.Styles.Add

代码行。因此，原因必须是其他代码。您仅粘贴值。你也需要复制格式。我对“单元格样式菜单”有问题，你可以在图片中看到，在运行这个marcos之后。我尝试粘贴值和格式，但菜单没有恢复正常。您是否尝试过打开清晰工作簿的测试？您的.xlsx可能已损坏。单元格样式菜单中的内容与“空白”相反。有很多自定义样式。但是，您显示的代码不能因此受到指责。不存在

.Styles.Add

代码行。所以这样做的原因一定是其他代码。