主页 > 经验 >
excel显示不同的单元格格式太多怎么办 EXCLE不同单元格格式太多
excel显示不同的单元格格式太多怎么办 EXCLE不同单元格格式太多的解决办法。一个工作表常时间的使用,或经多人不同的编辑会使表格的格式日积月累越来越多,以至在2003以下的版的用户打不开,提示如下表。

先来看看来过多的格式(色彩也是格式的一种)真的很多,如果手工一个一个的删除恐怕你花上一两个小时也删不完。


那么我们如何来清除过多的格式呢,小编下面就图说解决的方法。
第一步:进入VB(Visual Basic)

第二步:打开代码窗口,在代码窗口里输入以下代码保存。
Sub DelStyls()
Dim s As Style
Application.ScreenUpdating = False
For Each s In ThisWorkbook.Styles
If Not s.BuiltIn Then s.Delete
Next
Application.ScreenUpdating = True
End Sub

第三步:运行代码(点击运行里选择“运行子过程/用户窗体”或直接点击如图箭头所示)

第四步:看看工作表的格式是不是已去除了,看到下图就知道那些在使用过程中留下的格式已除去了,只剩下Excel默认自带的格式。

你的工作表如果格式太多了,最好清一清,工作时尽量不要更换太多不一样的格式。使用上述的办法不会对你的工作表内容更改。记得使用过后把代码删了。

先来看看来过多的格式(色彩也是格式的一种)真的很多,如果手工一个一个的删除恐怕你花上一两个小时也删不完。


那么我们如何来清除过多的格式呢,小编下面就图说解决的方法。
第一步:进入VB(Visual Basic)

第二步:打开代码窗口,在代码窗口里输入以下代码保存。
Sub DelStyls()
Dim s As Style
Application.ScreenUpdating = False
For Each s In ThisWorkbook.Styles
If Not s.BuiltIn Then s.Delete
Next
Application.ScreenUpdating = True
End Sub

第三步:运行代码(点击运行里选择“运行子过程/用户窗体”或直接点击如图箭头所示)

第四步:看看工作表的格式是不是已去除了,看到下图就知道那些在使用过程中留下的格式已除去了,只剩下Excel默认自带的格式。

你的工作表如果格式太多了,最好清一清,工作时尽量不要更换太多不一样的格式。使用上述的办法不会对你的工作表内容更改。记得使用过后把代码删了。
- 最近发表
- 赞助商链接