excel文件删除了全部名称，公式，宏以后还是运行非常慢是什么原因

alpha118

如题，excel文件删除了全部名称，公式，宏以后还是运行非常慢是什么原因？一不小心就死机了，😭。非常感谢大家指点迷津！

客都梅州

我的电脑够好的了i7，结果打开来动一下就卡一下，卡了几下直接崩溃了。
目测好像有好几千行，里面有许多的数组公式吧。建议进行公式优化

iqufjk00

Debug.Print Sheets(1).Shapes.Count
显示98770
看来是藏了那么多东西的缘故
整一个宏遍历了删一下看看有没有效果吧

alpha118

客都梅州 发表于 2021-10-4 20:04
我的电脑够好的了i7，结果打开来动一下就卡一下，卡了几下直接崩溃了。
目测好像有好几千行，里面有许 ...

这个文件是别人做的。打开文件显示2580行，我把2581行至excel最后一行全部删除过，当前最后一列到文件最后一个空列数据删除了。单元格全部已经是数值，没有公式了。

alpha118

iqufjk00 发表于 2021-10-4 21:54
Debug.Print Sheets(1).Shapes.Count
显示98770
看来是藏了那么多东西的缘故

这个文件是别人做的。打开文件显示2580行，我把2581行至excel最后一行全部删除过，当前最后一列到文件最后一个空列数据删除了。单元格全部已经是数值，没有公式了。查了宏是空的，宏遍历新手还不会用。

iqufjk00

alpha118 发表于 2021-10-5 21:58
这个文件是别人做的。打开文件显示2580行，我把2581行至excel最后一行全部删除过，当前最后一列到文件最 ...

换个简单的方法
新建一个空文件
回你这个文件，把所有层级取消折叠，全部展开
CTRL+A全选
然后到空文件里粘贴“数值”，不要直接粘贴把所有东西贴过来，再简单整理一下格式就可以了

洋务德雷

说明删除不掉看不到的东西。包括格式设置等等，所以还是把数据转移了，重新再做一份吧

路一直都在下雨

用这个试下
  

1. Sub 统计并删除文件对像()
   
2.     Dim ws As Worksheet
   
3.     Dim sp As Shape
   
4.     Dim n As Double
   
5.     Dim Content As String
   
6.     For Each ws In Worksheets
   
7.         For Each sp In ws.Shapes
   
8.                 sp.Delete
   
9.                 n = n + 1
   
10.         Next
    
11.         Content = Content & "工作表" & ws.Name & " 删除了" & n & " 个对象" & vbCrLf
    
12.         n = 0
    
13.     Next
    
14.     MsgBox Content
    
15. End Sub

复制代码

alpha118

路一直都在下雨 发表于 2021-10-9 12:36
用这个试下

感谢！粘贴运行后文件一直在转圈没反应，不知全数字文件藏了什么奥秘

alpha118

经过近半小时的转圈终于反馈找到98770个对象并删除，故障终于清除，感谢“路一直在小于的代码”。另外请教下，直接按F5删除对象转圈了几次都没成功是什么原因呢