excel里定位所有对象并全部删除

发布网友发布时间：2022-02-24 20:30

共2个回答

热心网友时间：2022-02-24 21:59

我的方法只能每次删除一个工作簿（即Excel文件）内的所有需删除堆箱

其实有个简单方法，利用查找实现的

1、打开查找窗口，“编辑”》查找或者Ctrl+F

依次点击”选项“、范围》工作表、查找全部

2、若是只是删除单元格内的值，点击上图中”替换“

3、若是需要把单元格一起删除，选中下图中红框部分（每次只能选中一个工作表的）

在右键点击下图中绿框区域，删除。完成后再次在重复上一步操作（即选中》右键删除）

热心网友时间：2022-02-24 23:17

Sub deleteDrawingObjects()
a = ThisWorkbook.Sheets.Count
For i = 1 To a
Worksheets(i).DrawingObjects.Delete
Next i
End Sub

加入进去，执行这个宏