如何删除excel表里的9万多个对象？

czy0524 · 发表于 2019-1-30 09:37

excel表里有9万多个对象，导致表格超级卡，昨天尝试用“定位-对象-删除”、VBA代码删除对象的方法，都是一操作，光标就变圆圈，动不了，有没有更好的方法？

蓝桥玄霜 · 发表于 2019-1-30 09:49

建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

zopey · 发表于 2019-1-30 09:54

重新制作表格

czy0524 · 发表于 2019-1-30 10:07

蓝桥玄霜发表于 2019-1-30 09:49
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

就是这个表格，里面有9万多个对象，行数太多，进行一个操作都会卡很久

不知道为什么 · 发表于 2019-1-30 10:40

czy0524 发表于 2019-1-30 10:07
就是这个表格，里面有9万多个对象，行数太多，进行一个操作都会卡很久

压缩文件打不开，损害了。

czy0524 · 发表于 2019-1-30 10:58

不知道为什么发表于 2019-1-30 10:40
压缩文件打不开，损害了。

我在电脑里是可以打开的，重新压缩了下

YZC51 · 发表于 2019-1-30 11:23

已经处理，请参考

登记 - 副本.rar (845.19 KB, 下载次数: 65)

czy0524 · 发表于 2019-1-30 11:26

YZC51 发表于 2019-1-30 11:23
已经处理，请参考

求教，具体的处理方法是怎样的？

everbest2015 · 发表于 2019-1-30 11:34

这个找个高配的电脑，写个代码运行十五分钟应该是可以搞定

everbest2015 · 发表于 2019-1-30 11:36

Sub ds()
Dim sh As Worksheet, shp As Shape
For Each sh In Sheets
      For Each shp In sh.Shapes
         If sh.Shapes.Count > 0 Then
            If shp.Type <> msoPicture Then
                  shp.Delete
            End If
         End If
      Next
Next
ThisWorkbook.Save
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何删除excel表里的9万多个对象？

评分