excel - 如何解决excel-vba中的错误400

Question

如果特定列中有空白单元格，我正在编写一个 excel-vba 来查找和删除整行。如果至少有一个空白单元格，我的宏工作正常，但如果没有空白单元格，则显示错误 400。我的代码是

Sub GPF_Sign()
Dim i As Integer, n as integer
Dim LROW As Long

    LROW = Sheets("GPF").Range("B200").End(xlUp).Row

    n = Range("D9:D" & LROW).SpecialCells(xlCellTypeBlanks).Cells.Count
    If n > 0 Then
        Range("D9:D" & LROW).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
End Sub

Answer 1

您可以使用 On Error Resume Next ，但这不是通常推荐的方法，因为它可能会掩盖其他错误。相反，请尝试计算 n以无错误的方式:

n = Application.CountIf(Sheets("GPF").Range("D9:D" & LROW), "")

另一个更好的方法是使用 AutoFilter :

Sub GPF_Sign()
  With Sheets("GPF").Range("D8:D200")
    .AutoFilter 1, ""
    .Offset(1).EntireRow.Delete
    .AutoFilter
  End With
End Sub