excel - 删除空单元格(上移)

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