使用VBA删除Excel中的空行

Question

我正在尝试使用以下代码删除空行：

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

上面的代码工作正常，但给出运行时错误'1004'：未找到单元格。

Answer 1

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

当没有空白单元格时，错误处理会有所帮助。如果没有这样的单元格，SpecialCells(xlCellTypeBlanks) 将始终返回错误，因此如果您想使用 SpecialCells( xlCellTypeBlanks）。

Answer 2

您需要测试是否有任何空白。

If WorksheetFunction.CountBlank(Worksheet.Columns("A:A")) > 0 Then
    Worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If

如果没有空格，您可以使用 On Error Resume Next 跳过该行，但通常最好测试特定条件，而不是假设您知道错误是什么。

据我所知，如果 A 列中的每个单元格都有值，您只会收到“未找到单元格”消息。

编辑：根据 @brettdj 的评论，这里有一个仍然使用 CountBlank 的替代方案：

If WorksheetFunction.CountBlank(Intersect(worksheet.UsedRange, ws.Columns("A:A"))) > 0 Then
    worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If

当然，UsedRange 是出了名的变化无常，并且可能比看起来更大。我认为最好首先确定要删除行的实际范围，然后检查该范围内的特殊单元格，例如：

Sub DeleteRows()
Dim ws As Excel.Worksheet
Dim LastRow As Long

Set ws = ActiveSheet
LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
With ws.Range("A2:A" & LastRow)
    If WorksheetFunction.CountBlank(.Cells) > 0 Then
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
End With
End Sub

最后一点 - 我将变量从“worksheet”更改为“ws”，因为“worksheet”是Excel 保留字。

Answer 3

和我一起工作很好。这些声明不会向我抛出任何错误

 Sheet1.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'perfect

我找到了您问题的这些类型的解决方案

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

看看这些链接

http://www.excelforum.com/excel-programming/390329-microsoft-visual-basic-run-time-error-1004-no-cells-were-found.html

< a href="http://www.mrexcel.com/forum/showthread.php?t=343744" rel="nofollow">http://www.mrexcel.com/forum/showthread.php?t=343744

是的，您设置了对象吗？工作表在这里没有任何意义

dim wsheet as worksheets
set wsheet = worksheets("worksheetname") or worksheets("sheet1")
wsheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Answer 4

另一种方式：

If Range("Table2").Rows.Count > 1 Then
   Range("Table2").EntireRow.Delete
End If

Answer 5

Sub delete_rows_blank()

t = 1
lastrow = ActiveSheet.UsedRange.Rows.Count
Do Until t = lastrow
If Cells(t, "A") = "" Then
Rows(t).Delete
End If
t = t + 1
Loop

End Sub