[分享]Excel 工作簿减肥和提速

BobPan

Excel并不是设计用来存储数据的。所以不推荐在Excel中存放太多的数据。虽然Excel工作簿所允许的工作表数量并没有什么具体的限制（Excel2003），但我推荐的工作表数量不要超过10个。上次有个朋友说他有一个文件足有81MB，这是在是令人担忧的。即使下面三部分提到的一些问题都解决好了，而数据量如此之大的话，速度还肯定是慢的。

第一部分：如何给Excel工作簿减肥

除了工作簿本身有宏病毒（关于如何识别宏病毒，本文的结束处有说明）外，有下列的几个原因可能导致工作簿异常膨胀

 

一。工作表中的格式过于复杂（如多种字体，多种颜色，条件格式等等）

 

我们都知道，一个工作表有65536*256个单元格，这个非常大的一个范围。我们在应用一些格式设置时，往往为了方便，直接在整行，或整列，或者在多行和多列中应用，这样其实是不妥当的。我相信很少有人会用满整列，或者整行。大量的没有用到的单元格被加上了一些格式后，Excel并不总是知道这个单元格是不需要用的，而往往在计算时会包括这些单元格。另外，格式的多样性（包括字体，颜色等），势必是要造成Excel文件体积变大，这是不难理解的。

1. 用尽量少的格式样式，如字体和颜色，毕竟Excel的优势不是在于文书，版面的展示（那是Word，PowerPoint等的强项）
   
2. 删除“空白”的单元格。找到工作表中最右下角的单元格（请注意：除非你有自信，请不要过分依赖Excel 的"定位"=>"最后一个单元格"所给你的结果），我是说你可以手工找到这个单元格。然后选中这个单元格右边所有的列，然后执行菜单命令："编辑"=〉"清除"=〉"全部"，接下来，选中这个单元格下面所有的行，同样执行菜单命令："编辑"=〉"清除"=〉"全部",然后保存

 

二。图片或者其他绘图图形较多，或者图片选择了不恰当的格式

 

选择适当的图片格式
　　
在文档中引用的图片格式一般有三种，BMP、JPG、GIF。BMP格式保存的图片保真度较高，但大小往往是其它两种格式的几倍至几十倍，而照片、扫描图片等用GIF格式保存则失真非常严重，因此建议图片先采用JPG格式保存，然后再引入到文档中，这种格式的图片大小不仅比BMP格式小很多，而且往往也比GIF的格式小，而保真度与BMP格式则相差无几。
　　
利用“插入”引入图片
　　
插入图片有两种方法，第一种是将图片保存为一个JPG格式的文件，选择“插入→图片→来自文件”，打开“插入图片”对话框，选中所需插入的图片文件，点击“插入”即可。另一种是用“画图”、“Microsoft照片编辑器”等打开这个JPG文件，选中并复制，然后在文档中点击“粘贴”即可插入。强烈建议大家采用第一种方法，虽然两种方法得到的图片质量是一样的，但第一种方法所形成的文档的大小可能会比第二种小几十倍!

彻底清除图形对象：例如我们自己画的一些图形，比如你现在不要用它们了，你选择行或者列范围删除，清除都是清除不掉了，他们只是可能缩小了。这个时候，就可以用到本版"流浪的风"提到过的一个方法

1.先找到其中的一个文本框（找不到就自己添加一个）
2.选中这个文本框，按F5--->定位条件--->对象-->确定
3.按Delete清除
4.保存关闭
5.看看现在文件有多大，打开看看速度还慢不慢

 

三。公式和名称较多或者公式，名称，数据透视表等所引用的单元格范围过大

  

由于和第二点类似的原因，我们在定义名称，编写公式，指定数据透视表的数据源时往往图一时方便，而指定了过大的单元格范围。例如在A列中有包括标题在内的10个数据（A1：A10），标题为“姓名”,我们现在要定义一个名称，例如"姓名"，很多人会用 插入=〉名称=〉指定=〉首行，这当然是方便的，但这样的话“姓名”这个名称就引用了A2:A65536,而不是实际的A2：A10。你能想象到两者的差别吗？

 这时候，有的朋友要说：我这样做的原因是因为我的数据是在不断增加的呀，我可不想每次在变动的时候都去改这个名称。

 当然，你是对的，谁会愿意这样做呢？

 当我确信我定义的这个名称所引用的范围不可能是固定的时候，我采用了一个方法就是“动态命名”。听起来有点耳熟对吗？请看这个例子：为简单起见，我们假设数据都是连续地在A10后面开始添加，也就是说我们希望当我们添加到A15时，这个"姓名"就如我所愿地指向A2：A15，而这一切都是自动完成的。那么你可以在"插入"=〉"名称"=>"定义"对话框中，找到"姓名"，然后修改引用位置为=OFFSET($A$2,0,0,COUNTA($A:$A)-1,1)，然后点击"添加"。请留步，先不要急着关闭这个对话框。你现在可以将鼠标放在"引用位置"的这个框里面，由此来验证你要的结果。看到了吗？工作表中那一闪一闪的区域就表示了目前"姓名"所引用的单元格范围。

这只是一个简单的示范，利用这种技巧，可能让我们用最经济的方式得到我们需要的结果。

在公式引用中，在指定数据透视表的数据源时，都可以运用类似的技巧。当然，我不会推荐你写类似这样的公式=CountA（OFFSET($A$2,0,0,COUNTA($A:$A)-1,1)），而是推荐你先定义好这个名称，然后这样写公式：=CountA（姓名)

这种效果在数组公式中更明显，除非你有足够的耐心和勇气，请不要在数组公式用引用过大的单元格范围，特别是那些不必要的单元格。

请注意，以上的检查应该是针对工作簿中的所有工作表，包括隐藏的

四。VBA代码，尤其是用户窗体的影响

 

现在很多朋友都已经学会了用VBE来构建自己的工程，这是多么令人振奋的一件事！但今天我们要讨论的是如何处理VBA工程可能带来一些副作用以及如何压缩它？

 

有很多测试证明，用户窗体会是增加文件大小的比较突出的原因之一。而反复地改写工程中模块的代码，也或多或少地会增加文件的大小（我们可以这样理解：反复地改写工程代码，总是会留下一些痕迹和碎片）

对于这个问题，可以考虑将所有模块，窗体，都导出为文件，然后保存，然后再依次导入。

关于用户窗体，作为开发者应该考虑的是：是否真的有必要用某个窗体？举个简单的例子，如果只是接收用户输入数值，就完全可以用InputBox方法或者属性，而不需专门用一个窗体。同时，工作表本身可以用来做用户交互的界面，应该充分利用。

五。外部链接（特别是死链接）的影响

 

有的时候，我们的工作簿中可能包含了一些外部引用，这样我们可以共享其他工作簿的一些信息。如果你的工作簿中包含外部链接，你可以通过"编辑"=>"链接"对话框中查看到。默认情况下，文件在打开时，总是尝试去链接源文件，以刷新数据。在保存时，会纪录链接的变化情况。

当源文件的位置或者内容发生变化时，就可能产生死链接。

我个人非常不主张用链接方式来实现不同文件间数据的共享，这既不是最方便的方法，而且在文件分发过程中会遇到一些问题。我当然知道数据共享是有意义的，但我经常会尝试用其他的途径来实现。

 

六。关于自动保存选项的考量

选中这个选项时，每次进行保存文档的操作则只保存文档的修改部分，保存速度较快，但文档的大小也会增加，即使是对文档进行删减操作也是如此。目前计算机的速度较快，因此开启这项功能所带来速度的增加毫不明显，但付出的代价是文档的大小急剧膨胀，建议不要选中这个选项。试着关闭这个选项，再对文档稍作修改，然后保存，你会惊奇地发现文档的大小会大幅度缩小!

七。文件异常退出（或者其他不可预见的原因）造成的工作簿内工作表结构方面的损坏

有时候，由于一些不可预见的原因（例如停电），Excel被迫异常退出。虽然目前没有专门的工具可以检测这种情况对工作簿内部可能造成的损坏程度，但是有理由相信多少是有影响的。

如果你的文件中不存在前面提到的几个问题，同时你还是确信文件体积不正常，你可以尝试如下的方法

新建一个工作簿，把现有文件中的工作表一一剪切到新的工作簿中。请注意这里用的是“剪切”方法，不是“移动或复制工作表”，也不是“复制”。没错，就是先选中工作表中的内容，然后“剪切”，光标移动到目标工作表，然后“粘贴”。这样做唯一不足的地方就是，目标工作表的行和列格式可能要稍微调整一下。

不对哦，我的工作薄有名称，剪过去，“名称”却丢下了，我可不想再去一个个的设“名称”？？？

是哦，别急，到本贴12楼看看它 - 剪切、复制记得带上我-“名称”

[此贴子已经被作者于2007-12-8 19:38:30编辑过]

BobPan

第二部分：如何给Excel加速

 

可能影响Excel的运行速度的几个方面

 

1。设备的配置是否合理？特别是Office 2003，功能的确是很强大了，但相应的对硬件的要求也提高了。一般用户都用Windows Xp系统，然后装Office 2003 ，当然还有其他的软件了，这样的情况，我推荐的配置是：CPU P4 1G及以上，内存256MB及以上，硬盘40G及以上。根据自己的计算机的配置情况，你也可能选择只安装部分（而不一定是全部）Office组件和工具。

 

2。加载宏。Excel内置了几个加载宏程序，可以帮助我们实现一些高级功能。另外，我们自己也可以编写，或者在网上也可以找到更多的各式各样的加载宏程序。在使用加载宏时我可以给出的建议有：首先一定要确认加载宏的来源是否正当？下载后，安装前，强烈推荐要先杀毒。其次，要用的时候再加载它，而不主张一直把所有的加载宏都加载上。

 

3。自动重算，自动保存选项的考量。这两个选项在一定程度上给我们的工作带来了便利。但在有些时候（例如是公式比较多的时候），特别是自动重算，可能导致运行速度变慢。前面提到：自动保存选项也是可能导致文件增大的一个因素。有选择性地在操作一些文件时关闭这两个选项，可能会对运行速度有帮助。

 

4。迭代计算选项的考量。出于某种特殊的需求，我们可能会允许工作簿进行迭代计算，也就是循环引用（这种有目的的循环引用可以被用到解联立方程等一些特殊的场合）。但是这种循环引用会导致工作表频繁地被计算，当工作表任何地方发生变化时，就被重新计算一次。所以，这一点也是影响Excel速度的原因之一。建议不要勾上这个选项。

 

5。文件不正常（主要是本文第一部分所提到的一些情况）。这一项的解决不再赘述。

 

6。不恰当地使用了其他一些外部工具可能导致的问题。例如一些测试版的软件，就好比目前的VSTO 2005 BETA2 ，这里面有一些针对Excel进行编程的工具。有的朋友(请注意：只是可能）就会发现，安装了这个工具后，或者即使后来卸载了这个工具后，Excel在读文件，特别是内部有宏的文件时非常奇怪地“吃”内存，具体地说就是Excel会疯狂地占用内存，以致根本就无法正常工作。对于这种情况，有一个比较简便的方法就是使用：帮助=〉检测与修复 ，有两个选项：修复时恢复快捷方式；放弃自定义设置并恢复默认设置。如果两个选项都选上了，或者至少第二个选项选上了的话，执行修复完后一般都能解决这个问题。请注意：在执行这个操作之前，请确定你已经清楚这样操作可能导致的一些问题（例如Outlook的个人数据文件可能需要重新指定：文件不会丢失，但修复完重新开Outlook前，请到控制面板=〉邮件 对话框中指定你的个人数据文件）。强烈建议你要先阅读相应的帮助文档。

BobPan

第三部分：如何识别宏病毒？

 

在VBE（Visual Basic编辑器）中，激活工程资源管理器，并定位到你要检查的工作簿。 检查工作簿中所有模块（包括ThisWorkBook模块）中的代码，查看是否有你不熟悉的VBA代码。病毒代码往往格式混乱并且含有大量奇怪的变量名称。另一个选择是使用市售的查毒软件。

为保证安全，建议将OFFICE 的宏安全性级别设置为中级后者以上（请注意：如果设置为高级的话，你将不会收到任何的通知，Excel自动禁止所有宏运行）

ychexcel

精华!学习再学习!

harrycheng

BobPan果然系有心人，

多谢你的研究和共享。我会学习并在应用中注意。

laosanjie

楼主有水平、有耐心、有热情！！！谢谢楼主！！！

huwei853853

非常感谢

很实用

BobPan

多谢楼上各位的认可，希望有更多的人受益！

飞刀再见飞刀

实验一下去

BobPan

QUOTE:

以下是引用BobPan在2007-12-1 10:45:10的发言：

如果你的文件中不存在前面提到的几个问题，同时你还是确信文件体积不正常，你可以尝试如下的方法

新建一个工作簿，把现有文件中的工作表一一剪切到新的工作簿中。请注意这里用的是“剪切”方法，不是“移动或复制工作表”，也不是“复制”。没错，就是先选中工作表中的内容，然后“剪切”，光标移动到目标工作表，然后“粘贴”。这样做唯一不足的地方就是，目标工作表的行和列格式可能要稍微调整一下。

疑问：用这个方法，我定义的“名称”都没有了，会很烦也？？

解答：

请跟我做：

1。选择数据区旁边选择一个单元格，按“F3”，粘贴“名称”（如有多个，粘贴后输入“+”号接着贴，贴完有效的“名称”）

     怎么有的时候要我找文件？？？不用管，取消就行了

2。选择工作表中的内容（包含刚才放置“名称”的单元格），按剪切
3。新建工作薄，贴过过去！哈哈，名称也过来了也！！

4。选择放置“名称”的单元格，全部清除！

恭喜！大功告成！！！

疑问：有没搞错，我的“名称”有几十上百个，一个一个贴，贴到什么时候呀？

别急，如果这样的话，还是用VBA吧，首先还是要选择数据区旁边选择一个单元格，接着运行下面代码，接着步骤2做吧

Sub InsFor()
Dim bytIdx As Byte, argNames As Names, strFormula As String
Set argNames = ActiveWorkbook.Names

For bytIdx = 1 To argNames.Count
    strFormula = strFormula & "+" & argNames(bytIdx).Name
Next

If LenB(ActiveCell.Value) = 0 Then ActiveCell.Formula = "=" & strFormula
Set argNames = Nothing
End Sub

注：
因为按“F3”只能粘贴可见的“名称”，所以，如手工操作，工作表有隐藏的“名称”，请先执行下面代码：

Sub ShowAllName()
Dim bytIdx As Byte, argNames As Names
Set argNames = ActiveWorkbook.Names
For bytIdx = 1 To argNames.Count
    argNames(bytIdx).Visible = True
Next
Set argNames = Nothing
End Sub

说明：
当剪切、复制时，如果区域中有公式包含“名称”时候，会同时复制“名称”

上面的方法就是在剪切之前插入包含所有“名称”的公式，使所有的“名称”跟着我走

[此贴子已经被作者于2007-12-4 12:18:22编辑过]