如何快速给Excel文件减肥或者减小文件体积

近期在整理学生学籍信息时，需要按班分拣出各班学生信息，便于班主任核对正误，结果按平常的方法分完后，发现每个班级的文件竟然达到30多M，这也是第一次遇到这种情况，在网上找了下，发现提到有各处对象，或者代码太多等等，但文件里只是一些学生信息而已，哪来的图表对象等。后来转到页面视图发现整个表格都被设置为了可打印区域，就估计可能是这个原因造成，试着把所有空白页都删除后，竟然小到只20多K，看来就是这个原因，但是文件太多了（40多个），一一手动删除太慢，就写了如下的代码可以快速删除空白页，有兴趣的可以自己试试。

首先新建一个电子表格，用于存储代码。

Option Explicit
Option Base 1
Sub 瘦身代码()
    Dim i As Integer

    On Error Resume Next
    For i = 1 To 40

        Workbooks.Open "E:\文件瘦身\" & Trim(Str(i)) & ".xls" '由于每个文件都为数字，所以直接用循环数字了。这句用来打开文件
        Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete '按行删除空白行
        Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete '按列删除空白行
        Workbooks(Trim(Str(i)) & ".xls").Close savechanges:=True  '这句用来关闭打开的文件并保存结果
    Next i
End Sub

转载于:https://www.cnblogs.com/xiehui/archive/2012/10/25/2739319.html