excel文件没多少内容文件却很大怎么办?如何快速删除excel表中隐藏对象?

2017-7-18 寒川 计算机

    经常会遇到这样的情况,我的excel表明明就一点点数据,但excel文件却非常大,达几百KB更有胜者能达上MB,一打开这样的excel文件,excel非常卡,往往影响正常操作,极度影响心情与体验。那么,是什么原因造成这种现像呢?。产生这种情况的原因,多半是因为在编辑Excel的过程中,很多人喜欢用全选--复制--粘贴的方法,导致原来表中隐藏的对象,被复制,越来越多。对象数量成集合增长,最后导致Excel文件超大,操作时很卡。

    excel文件没多少内容文件却很大怎么办?如何快速删除excel表中隐藏对?方法有两种,分别如下:

    1、对于隐藏的对象不是太多时感觉此种方法感觉还是挻快的。具体超作如下:F5或Ctrl+G,打开定位对话框,如下:

QQ截图20170718102306.jpg

点击“定位条件(S)...”,再选择“对象”->“确定”,如下图:

QQ截图20170718102306.jpg

确定后就能找到一些隐藏的对象了,然后按del键删除即可。

2、方法二,使用VB代码,方法如下:

开发工具,查看源代码,没有此功能?自己百度去啊。

QQ截图20170718102306.jpg

在空白框中输入如下代码:


'自动删除所有工作表的对象(图片,批注不做处理)
Sub test()
Dim count
Dim pic '图片13
Dim button '按钮8
Dim txtbox '文本框17
Dim comm '批注4
Dim other '其他未知
Dim msg '提示消息
Dim delpic
count = 0
pic = 0
button = 0
txtbox = 0
comm = 0
other = 0
respons = MsgBox("是否要清理表格中的图片,请谨慎操作!" & Chr(10) & _
"点击'是'清理图片,点击'否'跳过!", vbYesNo, "警告")
If respons = vbYes Then
delpic = True
Else
delpic = False
End If
For i = 1 To Sheets.count
For Each tb In Sheets(i).Shapes
If tb.Type = 13 Then
pic = pic + 1
If delpic Then
tb.Delete
End If
ElseIf tb.Type = 8 Then
button = button + 1
tb.Delete
ElseIf tb.Type = 17 Then
txtbox = txtbox + 1
tb.Delete
ElseIf tb.Type = 4 Then
comm = comm + 1
Else
other = other + 1
3
tb.Delete
End If
Next
'For Each tb In ActiveSheet.Shapes
'tb.Delete
'Next
Next
If delpic Then
count = button + txtbox + pic + other
Else
count = button + txtbox + other
End If
If count > 0 Or comm > 0 Or pic > 0 Then
msg = "共删除了" & count & "个对象;"
If button > 0 Then
msg = msg & Chr(10) & "按钮" & count & "个;"
ElseIf txtbox > 0 Then
msg = msg & Chr(10) & "文本框" & txtbox & "个;"
ElseIf pic > 0 And delpic Then
msg = msg & Chr(10) & "图片" & pic & "个;"
ElseIf other > 0 Then
msg = msg & Chr(10) & "未知对象" & other & "个;"
End If
If comm > 0 Then
msg = msg & Chr(10) & "有" & comm & "个批注没有处理;"
End If
If pic > 0 And Not delpic Then
msg = msg & Chr(10) & "有" & pic & "个图片没有处理;"
End If
Else
msg = "没有找到可以清理的对象!"
End If
MsgBox msg
End Sub
点击图中绿色的小箭头,根据弹出的对话框选择操作。编写的代码中,我对图片和批注进行了识别,以免删除有用的内容,懂VBA的,可以自己
修改,增加需要的内容。

等待片刻,弹出提示框,对象就删除了

标签: 计算机 office 学习 excel

评论(1) 浏览(4518)

Powered by emlog 蜀ICP备12030225号

川公网安备 51042102000001号

sitemap