对Excel进行瘦身的两个方法

问题分析：当您收到一个Excel文件，发现文件差不多10M，但其实Excel表格里面没多少数据，后来发现原来是多了很多没用的单元格所造成，这里面涉及到两个概念：“Excel 最后的单元格”和“Excel实际的最后的单元格”，当您按键盘的“Ctrl+ End”，它将会定位到最后有值的单元格后一个单元格，又或者是在远远在有值的单元格的后面，多余的单元格就是在有真值的单元格跟“Ctrl+End”定位到最后的单元格的位置之间，越多就代表Excel占用越多没用的空间，这就是文件变大的原因

注意：可以通过Excel的滚动条判断

更加详细的分析：http://bbs.51cto.com/thread-882482-1.html

解决方法：

方法一：手动删除多余的单元格

1、找到有数据后的第一个单元格

2、按键盘：Ctrl+Shift+End 选中后面所有的空格，

3、按键盘：Ctrl+ -（减号）

4、最后在弹出的删除对话框选择整行，确实即可

5、保存并退出文件，查看文件的大小就会缩小了

方法二：使用以下的VBA Macro

----------------------------------------------------------

Option Explicit

Sub SHRINK_EXCEL_FILE_SIZE()

Dim WSheet As Worksheet

Dim CSheet As String 'New Worksheet

Dim OSheet As String 'Old WorkSheet

Dim Col As Long

Dim ECol As Long 'Last Column

Dim lRow As Long

Dim BRow As Long 'Last Row

Dim Pic As Object

For Each WSheet In Worksheets

WSheet.Activate

'Put the sheets in a variable to make it easy to go back and forth

CSheet = WSheet.Name

'Rename the sheet to its name with _Delete at the end

OSheet = CSheet & "_Delete"

WSheet.Name = OSheet

'Add a new sheet and call it the original sheets name

Sheets.Add

ActiveSheet.Name = CSheet

Sheets(OSheet).Activate

'Find the bottom cell of data on each column and find the further row

For Col = 1 To Columns.Count 'Find the actual last bottom row

If Cells(Rows.Count, Col).End(xlUp).Row > BRow Then

BRow = Cells(Rows.Count, Col).End(xlUp).Row

End If

'Find the end cell of data on each row that has data and find the furthest one

For lRow = 1 To BRow 'Find the actual last right column

If Cells(lRow, Columns.Count).End(xlToLeft).Column > ECol Then

ECol = Cells(lRow, Columns.Count).End(xlToLeft).Column

End If

'Copy the REAL set of data

Range(Cells(1, 1), Cells(BRow, ECol)).Copy

Sheets(CSheet).Activate

'Paste Every Thing

Range("A1").PasteSpecial xlPasteAll

'Paste Column Widths

Range("A1").PasteSpecial xlPasteColumnWidths

Sheets(OSheet).Activate

For Each Pic In ActiveSheet.Pictures

Pic.Copy

Sheets(CSheet).Paste

Sheets(CSheet).Pictures(Pic.Index).Top = Pic.Top

Sheets(CSheet).Pictures(Pic.Index).Left = Pic.Left

Next Pic

Sheets(CSheet).Activate

'Reset the variable for the next sheet

BRow = 0

ECol = 0

Next WSheet

' Since, Excel will automatically replace the sheet references for you on your formulas,

' the below part puts them back.

' This is done with a simple replace, replacing _Delete with nothing

For Each WSheet In Worksheets

WSheet.Activate

Cells.Replace "_Delete", ""

Next WSheet

'Roll through the sheets and delete the original fat sheets

For Each WSheet In Worksheets

If Not Len(Replace(WSheet.Name, "_Delete", "")) = Len(WSheet.Name) Then

Application.DisplayAlerts = False

WSheet.Delete

Application.DisplayAlerts = True

End If

End Sub

转载于:https://blog.51cto.com/nearlv/1110659

对Excel进行瘦身的两个方法相关推荐

用晚餐瘦身是最好的方法
减肥观念是一日三餐适当的饮食控制,可以让你的身材更趋健康苗条!想减肥,晚餐可是极需重视的环节,晚餐吃什么,该怎么吃? 用晚餐瘦身是最好的方法: 你可能要问,一天有三餐,如果三餐全部都拿来做饮食控制,那 ...
App 瘦身的七种方法
极力推荐文章:欢迎收藏 Android 干货分享和您一起终身学习,这里是程序员Android 一个APP的包之所以大,主要包括以下文件代码 lib so本地库资源文件(图片,音频,字体等) 瘦 ...
精简瘦身Windows XP的方法
Windows XP系统中包含许多对于普通用户用不上的功能,我们完全可以对XP来一次瘦身. 1.在各种软硬件安装妥当之后,其实XP需要更新文件的时候就很少了.删除系统备份文件吧:开始→运行→sfc.e ...
Windows7 C盘瘦身最有效的方法
网上好多文章讲怎么给系统分区瘦身:清除垃圾,删除不需要的系统文件(如帮助文件)等等,但是这些其实占用不了多少空间的,有些东西删除了对系统正常运行也会有影响. 在此总结几个最有效的方法,能省下来几个G. ...
服务器里文件表格如何自动备份,Excel电子表格自动备份的两种方法
对于数据量大.数据重要性高的EXCEL文件,如果出现任何意外导致数据遭受损坏,那么,将是一件严重的问题. 平时我们在操作EXCEL时,应该养成良好的习惯,即让EXCEL自动备份,以防不测. 以下是两种 ...
设置Excel表格“只读模式”的两种方法
Excel表格的"只读模式"可以帮助我们防止意外更改表格,根据不同需求,表格可以设置"有密码"和"无密码"的两种"只读模式&quo ...
计算机桌面清理用于什么,C盘哪些文件可以删除？电脑C盘满了清理瘦身技巧
原标题:C盘哪些文件可以删除?电脑C盘满了清理瘦身技巧一般来说,C盘通常是电脑系统盘,而要保持Windows系统的流畅性,系统盘必须保持较为充足的存储空间,否则后导致系统异常卡顿,甚至是奔溃.不过, ...
MSYS2 瘦身小攻略
MSYS2, 吃硬盘的大神 MSYS2,集成了 x86 x64两个开发环境,且可以使用 pacman 进行包管理,可谓方便的很!可是,这个东东也有一个很不好的地方,就是实在太占硬盘.尽管下载的软件包一 ...
深入探索 Android 包瘦身（上）
码个蛋(codeegg) 第 942 次推文作者:jsonchao 链接:https://juejin.im/post/5e7ad1c0e51d450edc0cf053 今天分享一篇匠心制作的< ...
iOS安装包瘦身的那些事儿
在我们提交安装包到App Store的时候,如果安装包过大,有可能会收到类似如下内容的一封邮件: 收到这封邮件的时候,意味着安装包在App Store上下载的时候,有的设备下载的安装包大小会超过100 ...

对Excel进行瘦身的两个方法

对Excel进行瘦身的两个方法相关推荐

最新文章

热门文章