从表中删除空行，当没有要删除的空行时出错

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