EXCEL批量删除空行的VBA怎么写

在工作表较少的情况下可以使用，但我现在有250张表批量删除空行就不行了。运行宏时出现有对话框：运行时错误'1004'，未找到单元格。应该怎么解决？

Sub 删除空行()
For i = 1 To Sheets.Count
    Sheets(i).Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete    '删除第一列为空值的行
Next
End Sub

ExcelVBA
jixian -
共有1个回答
  • Smoosmefopimb - 1年前

    在前面加一句On Error Resume Next

     

    Sub 删除空行()
On Error Resume Next
For i = 1 To Sheets.Count
    Sheets(i).Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete    '删除第一列为空值的行
Next
End Sub