excel - 使用VBA在Excel中删除空行

我正在尝试通过使用以下代码删除空行:

worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

上面的代码工作正常，但是给出了run time error '1004': No Cells were found.

最佳答案

On Error Resume Next
worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

没有空白单元格时，错误处理会有所帮助。如果没有这样的单元格，那么SpecialCells(xlCellTypeBlanks)总是会返回错误，因此，如果您想使用SpecialCells(xlCellTypeBlanks)，那么错误处理是(据我所知)处理错误的唯一方法。