如何快速删除工作表里大量的图形对象？

byebye懒惰

最近遇到个朋友求助，说她的表格内容不多，但是使用起来异常慢，几乎卡死，我拿到文件看了下，发现里面存在大量的非常细小的图形对象，数量接近20万，我推测会不会是她在网络上拿的数据，网站在数据里插了对象干扰。最初尝试用定位对象，但是由于数量太多，光是定位选中就耗费了大量的时间。于是弄了代码清除这个工作表里的对象，一开始用For Each，发现完全清除这些对象要1个多小时，后来试了下For i = shapes.count to 1 step -1这种办法，发现更慢，要2个多小时，再后来发现了DrawingObjects这个集合，使用DrawingObjects.Delete这个方法最快，大概30分钟就完成，比For Each快了2倍有多。但是感觉大半个小时还是太长了点，这里想请教下大家有没有处理过类似的问题？有没有更快捷的办法？另外DrawingObjects这个集合找不到帮助信息，希望哪位知道的可以提供一下，先谢谢大家

byebye懒惰

这里我粗略做了三组测试

工作表里有10000个对象，三种方法删除的时间：
DrawingObjects：2.05秒
For i = k To 1 Step -1：10.67秒
ForEach：10.52秒

工作表里有50000个对象，三种方法删除的时间：
DrawingObjects：158.47秒
For i = k To 1 Step -1：456.19秒
ForEach：277.13秒

工作表里有100000个对象，三种方法删除的时间：
DrawingObjects：847.87秒
For i = k To 1 Step -1：2160.94秒
ForEach：1386.01秒

wodewan

看到过一个帖子，地址找不到了，可以快速删除，步骤是这样的，不用打开文件，而且速度超快。
WinRAR软件打开文件，找到xl下的drawings ---》drawing1.xml ，删除，有时可能还有drawing2.。。。
再打开时会 出现下面的提示，点：是

然后就会出现对象被删除的提示：

wodewan

佩服你的耐心，能等2个小时测试。。。，后来发现了关键字，说她的表格内容不多，明白了。。。哈哈，开个玩笑，帖子找到，顺便贴个原帖地址，http://club.excelhome.net/thread-1459455-2-1.html，14楼神操作。

leroy

凭个人经验来看，定位并删除对象是比较快捷的方式，暂时未发现更好的方式。
或者你变通一下，复制工作表中的内容，粘贴到新的工作簿。

wodewan

leroy 发表于 2019-11-6 22:42
凭个人经验来看，定位并删除对象是比较快捷的方式，暂时未发现更好的方式。
或者你变通一下，复制工作表中 ...

教管员好，可是有的时候，如果文件内对象超多，打开都挺费劲，很难定位删除，或复制数据出去，但用上面WINRAR的方法确实更快，更直接。我把原帖的附件拿过来了，你测试下。

larer

一次性的操作,慢点也无所谓,二楼已测试,10000个,DrawingObjects：2.05秒,已经够快了,普通的工作薄中根本达不到10000个图形,没有必要追求更快.

byebye懒惰

wodewan 发表于 2019-11-6 22:39
佩服你的耐心，能等2个小时测试。。。，后来发现了关键字，说她的表格内容不多，明白了。。。哈哈，开个玩 ...

哈哈，我就猜强大的EH肯定会有神操作，但是有时候茫茫贴海找出这个方法还是要费一番劲，谢谢你的指引，让我的见识又增长了，再次感谢

byebye懒惰

leroy 发表于 2019-11-6 22:42
凭个人经验来看，定位并删除对象是比较快捷的方式，暂时未发现更好的方式。
或者你变通一下，复制工作表中 ...

定位确实是最快的，DrawingObjects这个方法应该就是来源于定位的命令，只是当对象太多的时候，操作会很慢很卡的，移表也很慢

byebye懒惰

larer 发表于 2019-11-7 03:33
一次性的操作,慢点也无所谓,二楼已测试,10000个,DrawingObjects：2.05秒,已经够快了,普通的工作薄中根本达 ...

只是感觉10几万的数据也不是很多，得花半个小时的话，感觉效率也还是不高，楼上有位兄弟推荐的方法很棒