删除空白单元格（向上移动）

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属性中 。

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