想删除表中某一固定区域的所有表格怎么操作？
【解答】
可以使用如下程序代码：
Sub 去除指定范围内的对象()
Dim p As Shape
Set My = Worksheets("工作表名")
For Each p In My.Shapes
If Not Application.Intersect(p.TopLeftCell, Range("范围")) Is Nothing Then p.Delete
Next
End Sub
Dim p As Shape
Set My = Worksheets("工作表名")
For Each p In My.Shapes
If Not Application.Intersect(p.TopLeftCell, Range("范围")) Is Nothing Then p.Delete
Next
End Sub
责任编辑：八月骄阳
[