excel表格太卡怎么才能解决 急
展开全部
打开EXCEL,,按Alt+F11,插入模块,粘贴下面的代码,按F5运行
sub DelAllShapes()
Dim ws as Worksheet
Dim sp as Shape
Dim n As Double
Dim Content As String
For Each ws In Worksheets
For Each sp In ws.Shapes
If sp.Width < 1000 And sp.Height < 1000 then
sp.Delete
n = n + 1
End If
Next
Content = Content & "工作表" & ws.Name & "删除了" & n & "个对象" & vbCrLf
n = 0
Next
MsgBox Content
End Sub
sub DelAllShapes()
Dim ws as Worksheet
Dim sp as Shape
Dim n As Double
Dim Content As String
For Each ws In Worksheets
For Each sp In ws.Shapes
If sp.Width < 1000 And sp.Height < 1000 then
sp.Delete
n = n + 1
End If
Next
Content = Content & "工作表" & ws.Name & "删除了" & n & "个对象" & vbCrLf
n = 0
Next
MsgBox Content
End Sub
更多追问追答
追问
这样会删除里面的数据跟公式吗?
追答
不会的
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个问题没法回答。
从应该升级电脑到优化公式都有可能。
从应该升级电脑到优化公式都有可能。
追问
我的435330497 能加下吗 帮我看看 谢谢了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
换office!推荐微软的2007版
更多追问追答
追问
也是同事发我的 换了电脑还是卡
追答
那就是软件有问题,自己去下载一个吧!上传很慢,不然我都给你上传一个了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询