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

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