Excel中包含大量无尽autoshape、无尽空白单元格怎么办？

在日常工作中或许会经常遇到Excel中包含了大量的无尽的autoshape形状或者空白单元格，造成Excel运行缓慢卡死，但是原有数据也比较多，不想一点一点修改，再搜索很多资料后，看到了两个大神的操作，下面来分享。

一、无尽 autoshape形状

一个比较好的处理方法是直接用宏来处理，具体方法：

Alt + F11，打开VBA窗口，插入模块，代码区域复制以下代码：

Sub DeletePic()Dim p As ShapeFor Each p In ActiveSheet.ShapesIf p.Type = 1 Thenp.DeleteEnd IfNextEnd Sub

其中Type类型包含很多，可以处理的项目也很多，帮助文档里有以下内容：

MsoShapeType 枚举
指定形状的类型或形状范围。
名称值描述
msoAutoShape 1 自选图形。
msoCallout 2 标注。
msoCanvas 20 画布。
msoChart 3 图。
msoComment 4 批注。
msoDiagram 21 图表。
msoEmbeddedOLEObject 7 嵌入的 OLE 对象。
msoFormControl 8 窗体控件。
msoFreeform 5 任意多边形。
msoGroup 6 组合。
msoIgxGraphic 24 IGX 图形
msoInk 22 墨迹
msoInkComment 23 墨迹批注
msoLine 9 线条
msoLinkedOLEObject 10 链接 OLE 对象
msoLinkedPicture 11 链接图片
msoMedia 16 媒体
msoOLEControlObject 12 OLE 控件对象
msoPicture 13 图片
msoPlaceholder 14 占位符
msoScriptAnchor 18 脚本定位标记
msoShapeTypeMixed -2 混和形状类型
msoTable 19 表
msoTextBox 17 文本框
msoTextEffect 15 文本效果
所以根据实际需要，13代表类型为图片，如果要删除autoshape形状，将第四行代码部分的type类型改为1即可

然后，就要看同学你电脑处理器的速度了，可能是漫长无尽的等待，直到处理完毕，所有的autoshape形状就都删除了

二、无尽空白行、无尽空白列

某大神的操作方法是将空白行/列的行高或者列宽设为默认

选中第一行的空白行，Ctrl + Shift + ↓ 选择所有空白行，设置行高为14.25（默认行高），然后Ctrl + S 保存，长长的横向进度条就回来了

选中第一列的空白列，Ctrl + Shift + → 选择所有空白列，设置列宽为8.38（默认列宽），然后Ctrl + S 保存，长长的纵向进度条就回来了

以上欢迎查阅使用，也欢迎提出意见共同讨论

Excel中包含大量无尽autoshape、无尽空白单元格怎么办？相关推荐

Excel中，多个数值在同一个单元格中，如何运用公式求和？
转自:Excel中,多个数值在同一个单元格中,如何运用公式求和? 在数据的统计和分析中,有时候会遇到很头疼的问题,例如,客户将多个月的进货数据录入到了同一个单元格中,如下图:此时,如何发挥Excel数 ...
EXCEL中提取某行最后一个有效单元格数据
用户的需求总是多种多样的,有的如同下图:大家可以看下图,只是举例,不一定合理.每个人所属的部门的级别不同,有的人属于公司之下,有的属于team之下,而大家可以看到这个表里面有很多空白单元格,看上去不是 ...
php 相同数据合并单元格,利用for循环实现excel中多列数据合并到一个单元格
详细内容今天在工作中,老板给我一个任务,把excel表格中的多列数据合并到一列中. 数据如下: 注意:数据从16601到20000,也就是说有两千个网址. 下面为大家介绍几种方法: 第一种:使用wp ...
python查找excel中内容_Python 根据关键字查找xls单元格内容
必要的第三方库:xlrd 功能:根据传入的关键字来检索xls,读取关键字所在的单元格相邻单元格的内容.仅能处理xls. 用法:excel_read(需要查找单元格内容的xls文件路径,检索关键字(只接 ...
VBA基本操作（二）——空白单元格填充
今天来一个听起来逻辑有点复杂,但代码很简单的一段代码. 在Excel中,如果想用公式填充空白单元格,方法一般是: 1.Ctrl+G,然后点击定位条件,选择"空值" 2.然后在第一个 ...
实现Excel行插入行删除特殊处理，单元格合并及动态条件单元格公式自动计算功能的VBA 宏示例
最近的项目中,用到了很多Excel的VBA宏功能,用户的新需求也有很多需要用VBA宏来实现.为满足业务需求, 自己搜索网上的相关资料,尝试不同的解决方法,最终解决了用户的需求,在此记录下来,做一个总结 ...
在Excel中填写空白单元格以完成表格
If you've imported data into Excel, you might need to clean it up before you can use it. Here's how ...
成功解决在excel表格中仅在某列内插入一个空白单元格，使其下部的数据整体下移一格
成功解决在excel表格中仅在某列内插入一个空白单元格,使其下部的数据整体下移一格目录解决问题解决方法解决问题在excel表格中仅在某列内插入一个空白单元格,使其下部的数据整体下移一格解决 ...
批量提取excel中包含特定关键字的单元格内容
批量提取excel中包含特定关键字的单元格内容链接:https://pan.baidu.com/s/1uTnkYXh8jBcaeda-JoQDuQ 提取码:jbkv class get_xls_da ...

Excel中包含大量无尽autoshape、无尽空白单元格怎么办？

Excel中包含大量无尽autoshape、无尽空白单元格怎么办？相关推荐

最新文章

热门文章