宏：如果值与此值不匹配，则删除行

Question

我正在尝试修改以下代码，如果它不匹配＆＃34; X＆＃34;或＆＃34; Y＆＃34;然后删除整行。我试图添加＆＃39;＆＃34;或者＆＃34; Y＆＃34;＆＃39;但我得到了类型不匹配

For Lrow = Lastrow To Firstrow + 1 Step -1
     With .Cells(Lrow, "AY")
        If Not IsError(.Value) Then
            If Not .Value Like "X" Then .EntireRow.Delete
        End If
    End With
Next Lrow

有什么想法？还是建议更换？

Answer 1

在AND周围使用OR和Not时要非常小心 - 你必须仔细考虑：

请注意。 NOT(a OR b)与NOT(a) AND <相同/ EM> NOT(b)

以下代码将满足您的需求：

For Lrow = Lastrow To Firstrow + 1 Step -1
    With ActiveSheet.Cells(Lrow, "AY")
        If Not (.Text = "X" Or .Text = "Y") Then .EntireRow.Delete
    End With
Next Lrow

以下行也适用：

       If Not (.Text = "X") And Not(.Text = "Y") Then .EntireRow.Delete

Answer 2

下面的代码如何::

C