请教一个问题，关于excel文件大小的问题

cherrycdh

我有一个文件，它现在的大小是100多兆，然后我一开始以为是空行太多导致的问题，但是发现不是


然后我复制了副本一个个试验删除工作表，发现其中有 一个工作表删掉之后整个文件变成了4M，那么问题来了，这个工作表，它的内容不多，vb的代码如下：

1. Private Sub CommandButton1_Click()
   
2. 
   
3. 'On Error Resume Next
   
4. 
   
5. Application.ScreenUpdating = False
   
6. 
   
7. With Application
   
8.     .Calculation = xlManual
   
9.     .MaxChange = 0.001
   
10. End With
    
11. 
    
12.    
    
13. 
    
14. a = MsgBox("是否确认需要更新装配计划?", vbYesNo, "添加确认")
    
15. 
    
16. If a = 6 Then
    
17. 
    
18. b = Worksheets("装配记录").Cells(1, 1).CurrentRegion.Rows.Count + 1
    
19. 
    
20. d = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count
    
21. 
    
22. 
    
23. For i = 2 To d
    
24. If Cells(i, 1) <> "" Then
    
25. 
    
26.     If Cells(i, 8) <> "" Then
    
27.         For n = 1 To 8
    
28.         Worksheets("装配记录").Cells(b, n) = Cells(i, n)
    
29.         Next n
    
30.    
    
31.         Worksheets("装配记录").Cells(b, 15) = Cells(i, 15)
    
32.    
    
33.         Rows(i).Delete
    
34.    
    
35.         b = b + 1
    
36. 
    
37.     End If
    
38.    
    
39. Else
    
40. 
    
41. 'Exit Sub
    
42. 
    
43. End If
    
44. 
    
45. 
    
46. Next i
    
47. 
    
48. Call CommandButton2_Click
    
49. 
    
50. Else
    
51. MsgBox "取消装配计划添加"
    
52. 
    
53. End If
    
54. 
    
55. Worksheets("装配记录").Cells(1, 1).Calculate
    
56. 
    
57. With Application
    
58.     .Calculation = xlAutomatic
    
59.     .MaxChange = 0.001
    
60. End With
    
61. 
    
62. Application.ScreenUpdating = True
    
63. 
    
64. End Sub
    
65. 
    
66. Private Sub CommandButton2_Click()
    
67. 
    
68. 'Application.ScreenUpdating = True
    
69. 
    
70. 'With Application
    
71. '    .Calculation = xlManual
    
72. '    .MaxChange = 0.001
    
73. 'End With
    
74. 
    
75. 
    
76. '清空装配计划
    
77. 'a = MsgBox("确认需要清空装配计划吗?", vbYesNo, "清空警告")
    
78. 
    
79. 'If a = 6 Then
    
80. 'Range("a2:z500").ClearContents
    
81. 
    
82. 'Else
    
83. 'MsgBox "取消清空!"
    
84. 
    
85. 'End If
    
86. 
    
87. 'With Application
    
88. '    .Calculation = xlAutomatic
    
89. '    .MaxChange = 0.001
    
90. 'End With
    
91. 'Application.ScreenUpdating = True
    
92. 
    
93. End Sub
    
94. 
    
95. Private Sub CommandButton3_Click()
    
96. 
    
97. If MsgBox("是否打印", vbYesNo) = 6 Then
    
98. 
    
99. ActiveSheet.PrintOut
    
100. 'Call CommandButton1_Click
     
101. 
     
102. ThisWorkbook.Save
     
103. 
     
104. Else
     
105. 
     
106. MsgBox "取消打印!"
     
107. 
     
108. End Sub
     
109. 
     
110. Private Sub Worksheet_Activate()
     
111. 
     
112. On Error Resume Next
     
113. 
     
114. ActiveWindow.FreezePanes = False
     
115. Range("D2").Select
     
116. ActiveWindow.FreezePanes = True
     
117. 
     
118. End Sub
     
119. 
     
120. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     
121. 
     
122. '双击打开链接的标准定单
     
123. 
     
124. On Error Resume Next
     
125. 
     
126. ActiveWorkbook.FollowHyperlink Address:="\\192.168.2.3\定单管理" & Mid(ThisWorkbook.Name, 6, 4) & "\标准定单" & Cells(Target.Row, 15), NewWindow:=True
     
127. 
     
128. End Sub
     
129. 
     
130. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
131. 
     
132. End Sub
     

复制代码

然后删掉该工作表呢，整个工作簿文件小了

但是我把这个工作表移动到其他的工作簿里面，整个工作簿又没有变的非常大，有技术大大知道这个问题吗？

无奈这个文件因为涉及到公司的订单问题，无法发出来，只能发上面的代码