从表中删除空白行，没有空白行时删除错误

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