如何删除用户自定义的数字格式？

excelbus

如何删除用户自定义的数字格式？
一、最近总是出现了打开excel后，里面的数字都成了欧元格式，每次都要调整，非常麻烦。
二、用一个VBA解决这个问题，运行无效果，无法删除自定义的数字格式。路径：ctrl+1打开“设置单元格格式”，位置在”数字-自定义-类型（T）“内，出现很多非内置的数字格式。
       这个VBA如下：
sub 删除多余的数字格式（）
  dim st as style
  for each st in activeworkbook.styles
    if NOT st.builtin then st.delete
  next

sub

三、请教各位仙人，如何删除非内置的数字格式？谢谢各位！！

ykcbf1100

你上附件啊，不上附件的求助一般没啥效果。

cidanji

样式还是格式