テーブルから空白行を削除します。削除する空白行がない場合はエラー

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