如何使用列值删除excel表中的行

Question

我有5张不同的表格。sheet3和sheet4我希望根据单个列单元格值删除行。在表3中，我希望根据H列单元格值删除行，如果h2=“#n/a”和h503=“#n/a”，则删除整个行。在表4中，如果b2=“320857876”、b3=“32085678”、b4=“12133435”删除b列单元格值以302开头的整个行，我希望根据b列单元格值删除行。我想删除'C'列中的所有数据我的excel表如下所示

使用excel文件

Sub Create()
  Dim LastRow As Long
  Dim i As Long

  LastRow = Range("B10000").End(xlUp).Row
  For i = LastRow To 1 Step -1
    If Range("B" & i) = "#N/A" Then
        Range("B" & i).EntireRow.Delete
    End If
  Next
End Sub

Answer 1

这里有一些需求，代码也相当简单，但是关于其中的#n/a部分，您不能仅仅使用value方法来测试该文本，这是range对象返回的默认属性。

Sub Create()
    Dim LastRow As Long, i As Long

    LastRow = Range("B10000").End(xlUp).Row

    For i = LastRow To 1 Step -1
        If Range("B" & i).Text = "#N/A" Then
            Range("B" & i).EntireRow.Delete
        End If
    Next
End Sub

...您需要使用.text来使其工作，或者如果IsError（Range（“b”&i))，则是另一种方法。

您的其余要求只是逻辑。您的代码的其余部分相对较好，所以您只需要完成它。

我希望这能有所帮助。