2017各大船厂订单:在Excel表中有上万个快取图案, 用何方法可以一次性全部删除, 但要保留Excel中的内容.

用VBA可以搞定~下面是删除A15:K15快取图案的方法.范围可以自己修改.
================================================
删除Range("A15:K15")上所有的Shape物件

Sub DeleteDrawing()
Dim shp As Shapes
Set DrawRange = Range("A15:L15") 'change this
For Each shp In ActiveSheet.Shapes
'如果Shapes物件左上角位於Range("A15:L15")
If InRange(shp.TopLeftCell, DrawRange) Then shp.Delete
Next shp
End Sub
--------------------------------------------------------------------------------
Function InRange(rng1, rng2) As Boolean
InRange = False
'确保两个Range为同一工作簿
If rng1.Parent.Parent.Name = rng2.Parent.Parent.Name Then
'确保两个Range为同一工作表
If rng1.Parent.Name = rng2.Parent.Name Then
If Union(rng1, rng2).Address = rng2.Address Then
InRange = True
End If
End If
End If
End Function