删除excel中重复的形状

用宏删除:

Sub delAllShapes1() '删除当前工作簿中所有工作表中的Shapes
Set ash = ActiveSheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Sheets
sh.Activate
sh.Shapes.SelectAll: Selection.Delete
Next
ash.Activate
Application.ScreenUpdating = True
End Sub

不使用激活工作表,也可以使用硬循环:
Sub delAllShapes2() '删除当前工作簿中所有工作表中的Shapes
For Each sh In ThisWorkbook.Sheets '遍历当前工作簿中所有工作表
For Each sp In sh.Shapes '遍历当前工作表中所有Shape
sp.Delete '逐个删除
Next
Next
End Sub

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据