单元格格式太多的问题,请高手帮忙解决,谢谢~~

lauren-Y

    因为可能是很多时候要接受国外的文件,用不了多久就老会提示单元格格式太多,无法复制和黏贴,无法改变格式,请高手帮忙解决~~谢谢~~~
    看过网上有宏的代码,但是不知道怎么使用,贴进去也没有反应,请高手能告诉我怎么处理,是从录制宏开始还是直接从宏-编制之类的开始,或者有其他什么方法,谢谢~~~
    PS,1.  自定单元格样式里面右击鼠标-删除这种不行,因为太多了,没法操作
         2. 使用的是EXCEL 2007
    再次谢谢各位帮助解决和帮顶的同志~~~

suye1010

1. Sub ClearStyles()
   
2. Dim CS
   
3. For Each CS In ThisWorkbook.Styles
   
4.     Debug.Print CS.Name
   
5.     If Not CS.BuiltIn Then
   
6.         CS.Delete
   
7.     End If
   
8. Next
   
9. End Sub

复制代码

lauren-Y

suye1010 发表于 2013-10-8 16:25

谢谢斑竹~~~~
但是执行木有成功,我的操作如下:
      录制宏==>宏名 ClearStyles  ,保存在当前工作簿==>宏 编辑
      ==>把复制的内容贴进去,如下:
Sub ClearStyles()
Dim CS
For Each CS In ThisWorkbook.Styles
    Debug.Print CS.Name
    If Not CS.BuiltIn Then
        CS.Delete
    End If
Next
End Sub
     ==> 关了窗体直接点 宏 执行 ==>出现运行时错误'1004' 类Style的Delete方法无效==>调试后CS.Delete 标成黄色
     ==> 没啥反映了就......
   请我是我哪里出了问题么,要怎么修正额...谢谢高手~~~~

PS: 在其他的表格里试了一次,执行倒是没有出现错误,但是执行后好像没什么变化...没有啥提示,自定义格式也木有减少..谢谢~~