惊人的Excel文件通过VBA代码压缩小小书 XXshu

在Internet上浏览时，我发现此VBA代码可以极大地减少excel文件，因为它重新计算了excel画布，仅用于我们实际使用的区域。

这是实现性能的神奇VBA代码：

  Sub DietIt（） 
 致电Workbook_BeforeClose 
 结束子

 私人子工作簿_BeforeClose（） 
 昏暗的myLastRow只要长 
 昏暗的myLastCol长 
 昏暗的工作簿 
 昏暗dummyRng作为范围 
  MsgBox“好吧，让我们节食这种胖屎！”

 对于ActiveWorkbook.Worksheets中的每个星期 
 有星期 
  myLastRow = 0 
  myLastCol = 0 
 设置dummyRng = .UsedRange 
 关于错误继续 
  myLastRow = _ 
  .Cells.Find（“ *”，之后：=。Cells（1），_ 
  LookIn：= xlFormulas，lookat：= xl整个，_ 
 搜索方向：= xl上一个，_ 
  searchorder：= xlByRows）。 
  myLastCol = _ 
  .Cells.Find（“ *”，之后：=。Cells（1），_ 
  LookIn：= xlFormulas，lookat：= xl整个，_ 
 搜索方向：= xl上一个，_ 
  searchorder：= xlByColumns）.Column 
 出错时转到0 
 如果myLastRow * myLastCol = 0，则 
  。列。删除 
 其他 
  .Range（.Cells（myLastRow + 1，1），_ 
  .Cells（.Rows.Count，1））。EntireRow.Delete 
  .Range（.Cells（1，myLastCol + 1），_ 
  .Cells（1，.Columns.Count））。EntireColumn.Delete 
 万一 
 结束于 
 下周 
  MsgBox“完成！” 
 结束子

我试图找到此代码的作者，但显然这是由不同论坛中的许多人生成的。感谢他们所有人！ 😀