判断方法:
(1)CTRL+G,到,选中特殊,选“物件”,确定后会显示很多被选择的小物件(这种方法在隐藏列或行中的物件并不能看到)
(2)用VBA对物件进行计数,看看有多少个物件在工作表中,与你的工作表中需要的物件数量是否相符
打开EXCEL工作表,按ALT+F11,插入模组,将下面的代码COPY,并执行
Sub countShapes()
Dim n
n = ActiveSheet.Shapes.Count
MsgBox "这个表中共有 " & n & " 个物件"
End Sub
解决办法:
(1)如果确认工作表中没有你需要的物件或控件,用CTRL+G,到,点特殊,选“物件”,确定后按DEL键删除,会删除工作表中所有的物件
(2)用VBA删除,可以根据需要删除高度或宽度小于一定值的小物件,如
Sub delShapes()
Dim sp As Shape, n
For Each sp In ActiveSheet.Shapes
If sp.Width < 14.25 Or sp.Height < 14.25 Then '约小于0.5cm,根据需要设定
sp.Delete
n = n + 1
End If
Next sp
MsgBox "共删除了 " & n & " 个物件"
End Sub
温馨提示:答案为网友推荐,仅供参考