從表中刪除空白行，沒有空白行時刪除錯誤

Question

我想編寫一個代碼，在刪除數據轉儲並刷新工作簿後刪除表中的空白行。這工作正常，除了沒有任何空白行時：

Range("Table3").Activate 
Selection.SpecialCells(xlCellTypeBlanks).Select 
Selection.EntireRow.Delete 
ActiveWorkbook.RefreshAll 

有關如何解決此問題的任何想法？

Answer 1

考慮：

Sub kjhdfuvhx() 
Range("Table3").Activate 
On Error Resume Next 
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.EntireRow.Delete 
On Error GoTo 0 
ActiveWorkbook.RefreshAll 
End Sub