無法重置使用範圍

Question

我試圖添加一個自動宏到我的非常大的工作簿，至少通過重置使用的範圍修剪一些脂肪。 我試過很多代碼，無法讓它工作，並找不出原因。 （它似乎工作過一段時間，當我將每列手動刪除的右側和底部，然後運行宏） 我嘗試了短

Dim sht As Workshet Dim lng As Long For Each sht In ActiveWorkbook.Worksheets lng = sht.UsedRange.Rows.Count Next

---

Dim x As Long Dim y As Long x = ActiveSheet.UsedRange.Rows.Count y = ActiveSheet.UsedRange.Columns.Count

和其他一些建議，但它每次都會給我數據表下方的30k個單元。

任何人都知道這樣做的簡單surefire方式？建議非常感謝，一如既往，這個WB坐在70mb左右！

更新因爲我已經試過無數的腳本來重置使用範圍沒有成功，除非我手動刪除行和列，我已經決定，而不是微調的使用範圍到最後一個活動行，我會簡單地刪除全部數據當用戶保存時（這已將文件大小從約70mb減少到20mb！）。

非常感謝

Answer 1

看到我的問題的更新解釋，決定這是最好的解決方案。 `

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
Dim lng As Long, sht As Worksheet 

    Application.ScreenUpdating = False 
    On Error Resume Next 
     Application.DisplayAlerts = False 
     Sheets("data").Range("denialstable1").Delete 
     Application.DisplayAlerts = True 

     For Each sht In ActiveWorkbook.Worksheets 
      lng = sht.UsedRange.Rows.Count 
     Next 
     Application.ScreenUpdating = True 
    End Sub` 

Answer 2

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
For Each Sh In ThisWorkbook.Worksheets 
x = Sh.UsedRange.Rows.Count 
Next Sh 
End Sub 

我發現這個地方在線（對不起，不記得），和它的工作對我來說

Answer 3

這對我的作品，但它需要大約20秒運行：

Sub resetter() 
    Dim N As Long, i As Long 

    With Application.WorksheetFunction 

     N = Rows.Count 
     For i = N To 1 Step -1 
      If .CountA(Cells(i, 1).EntireRow) <> 0 Then Exit For 
     Next i 
     Range(Cells(N, 1), Cells(i + 1, 1)).EntireRow.Delete 

     N = Columns.Count 
     For i = N To 1 Step -1 
      If .CountA(Cells(1, i).EntireColumn) <> 0 Then Exit For 
     Next i 
     Range(Cells(1, N), Cells(1, i + 1)).EntireColumn.Delete 

    End With 
End Sub