刪除空單元格（向上移動）

Question

我的代碼如下錯？我想刪除空單元格，並向上移動其餘數據（大約10列）

但是我收到錯誤：應用程序定義或對象定義的錯誤。

Sub delete_empty_cells() 

    Sheets("Incidents_data").Select 
    Cells.Select 
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.Delete Shift:=xlUp 
End Sub 

Answer 1

限制你的細胞缺失的Worksheet.UsedRange property。

With Worksheets("Incidents_data") 
    .UsedRange.Cells.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp 
End With