21M的xls文件，压缩后是575K,应该与#VALUE!有关。

ning84 · 发表于 2018-7-19 18:55

在这个文件中，大量使用=JB4712Data!$B$5见下图

360截图20180719185246218.jpg

u
、
问：大量引用=JB4712Data!$B$5公式，xls文件增加很多。

hhjjpp · 发表于 2018-7-19 20:23

源于你不顾实际需要大范围设置单元格格式

ning84 · 发表于 2018-7-22 10:16

hhjjpp 发表于 2018-7-19 20:23
源于你不顾实际需要大范围设置单元格格式

谢谢高手解答，花了几天时间，也没搞清你删除那些无效设置单元格格式。
我把VBA全删除了，还是20多M。

麻烦问一下，高手是怎么删除?21M文件→161K文件.

希望高手解答，以后不会再大范围设置单元格格式操作方法。

hhjjpp · 发表于 2018-7-22 17:45

定位-最后单元格
就可发现你动用的最右最下的单元格
整列选中不需要的列，清除全部，或删除

ning84 · 发表于 2018-7-26 18:45

hhjjpp 发表于 2018-7-22 17:45
定位-最后单元格
就可发现你动用的最右最下的单元格
整列选中不需要的列，清除全部，或删除

谢谢回复，用代码找到了问题所在。这么大的单元格设置，肯定文件会很大。
$1:$381
$A$1:$GR$50002
$A$1:$CH$257

下面代码，删除多余单元格设置。问题得到解决。

Private Sub DEL()
Dim Rng As Range, oRng As Range
Dim Sht As Worksheet
Dim Row, Col, Col1
For ii = 1 To Application.Sheets.Count
Set Sht = Application.Sheets(ii)
Set Rng = Sht.UsedRange
With Sht
Row = .Range("A65536").End(3).Row ' .Rows.Count
For ii1 = 1 To Row
Set oRng = .Cells(ii1, 200)
Col1 = oRng.End(xlToLeft).Column
If ii1 - 1 Then
Col = Col1
End If
If Col < Col1 Then
Col = Col1
End If
Next ii1
''
Set oRng = .Range(.Cells(1, Col + 1), .Cells(65536, 256))
'Set oRng = .Range(.Cells(1, Col + 1), .Cells(Rng.Rows.Count, 255))
Debug.Print oRng.Address
oRng.Delete
''
Set oRng = .Range("$" & Row + 1 & ":$65536")
Debug.Print Rng.Address, oRng.Address
oRng.Delete shift:=xlUp
Debug.Print .Name, .UsedRange.Address
End With
'Debug.Print Row, Rng.Address, Row, Col, Rng.End(xlToLeft).Column, Rng.End(xlToRight).Column
'.Address
Next ii
End Sub

复制代码

ning84 · 发表于 2018-7-26 18:57

谢谢回复，通过代码找到问题。单元格设置太大。
$1:$381
$A$1:$GR$50002
$A$1:$CH$257

通过下丰代码，问题得到解决。

Private Sub DEL()
Dim Rng As Range, oRng As Range
Dim Sht As Worksheet
Dim Row, Col, Col1
For ii = 1 To Application.Sheets.Count
Set Sht = Application.Sheets(ii)
Set Rng = Sht.UsedRange
With Sht
Row = .Range("A65536").End(3).Row ' .Rows.Count
For ii1 = 1 To Row
Set oRng = .Cells(ii1, 200)
Col1 = oRng.End(xlToLeft).Column
If ii1 - 1 Then
Col = Col1
End If
If Col < Col1 Then
Col = Col1
End If
Next ii1
''
Set oRng = .Range(.Cells(1, Col + 1), .Cells(65536, 256))
'Set oRng = .Range(.Cells(1, Col + 1), .Cells(Rng.Rows.Count, 255))
Debug.Print oRng.Address
oRng.Delete
''
Set oRng = .Range("$" & Row + 1 & ":$65536")
Debug.Print Rng.Address, oRng.Address
oRng.Delete shift:=xlUp
Debug.Print .Name, .UsedRange.Address
End With
'Debug.Print Row, Rng.Address, Row, Col, Rng.End(xlToLeft).Column, Rng.End(xlToRight).Column
'.Address
Next ii
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[讨论] 21M的xls文件，压缩后是575K,应该与#VALUE!有关。