錯誤處理條件

Question

的線下停止運行代碼，如果沒有空單元格d行

Sheets("Sheet1").Range("D2:D250").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

我怎麼可以修改代碼以避免？

Answer 1

On Error Resume Next 
Sheets("Sheet1").Range("D2:D250").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
On Error Goto 0