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

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