膨胀的 Excel 文件

Question

有人给我发送了一个 10MB 的 Excel 文件，因此导致我们出现电子邮件问题。当 .zip 压缩到 1MB 以下时，可能 Excel 表有问题，但有没有办法在不压缩的情况下减小 excel 文件的大小？

顺便说一下，我有一系列 Excel 版本可供我使用。

Answer 1

如果有可以“回收”的空间，您可以尝试几种不同的方法：

1. 重置每个工作簿中的所有已用范围。这可以使用像这样的 VBA 方法来完成：

   Public Sub ResetAllLastCells()
   
   Dim wks As Worksheet
   Dim i As Long
   
   For Each wks In ActiveWorkbook.Worksheets
       i = wks.UsedRange.Rows.Count
   Next wks
   
   End Sub
   

2. 删除任何不需要的自定义样式。我使用如下 VBA 方法删除所有自定义样式：

   Public Sub StyleKill()
   
   Dim s As Style
   
   For Each s In ActiveWorkbook.Styles
       If Not s.BuiltIn Then
           s.Delete
       End If
   Next s
   
   End Sub
   

3. 如果工作簿中有 VBA 代码，请尝试将其反编译保存。您可以通过打开工作簿，打开 VBE，进行小的更改（添加空格或其他内容），然后在不编译项目的情况下保存工作簿来执行此操作。这可以显着减小文件大小。

我相信还有其他方法，但这些是我尝试过的方法。在一本工作簿中，我一直将文件大小从 ~15mb 减少到 10mb。