Excelで特定のテキストを持たない行全体を削除する

Question

列AのIDフィールドに "AB"または "ON"がない行全体を削除しようとしています。以下のコードを記述しましたが、行。誰でもこの助けてくれて助けてくれますか？私はデータのスクリーンショットを添付しました、ありがとう！ Data Screenshot link：

Sub DeleteRows() 

FinalRow = Cells(Rows.Count, "A").End(xlUp).Row 

i = 2 

Do While i <= FinalRow 

    If Cells(i, "A") <> "PQ*" OR If Cells(i, "A") <> "ON*" Then 

     Cells(i, 1).EntireRow.Delete 

     FinalRow = FinalRow - 1 

    Else 

     i = i + 1 

    End If 

Loop 

End Sub 

Answer 1

：後方

Sub DeleteRows() 

FinalRow = Cells(Rows.Count, "A").End(xlUp).Row 

i = 2 

Do While i <= FinalRow 

    If Left(Cells(i, "A"), 2) = "PQ" Or Left(Cells(i, "A"), 2) = "ON" Then 

     i = i + 1 

    Else 

     Cells(i, 1).EntireRow.Delete 

     FinalRow = FinalRow - 1 


    End If 

Loop 

End Sub 

Answer 2

• 行を削除するとき、あなたは
• ワイルドカードは等価演算子で使用することはできません下から上に行くほうが良いでしょう。 Like演算子を使用する必要があります。
• ロジックが少しずれています。あなたは括弧

あなたは私はあなたのオリジナルのポストでそれを理解してワイルドカードを使用している場合でORを囲む必要があり、それは PQで始まるか

ように細胞に変換します。

Option Explicit 
Sub DeleteRows() 
    Dim FinalRow As Long 
    Dim I As Long 

FinalRow = Cells(Rows.Count, "A").End(xlUp).Row 

For I = FinalRow To 2 Step -1 
    If Not (Cells(I, "A") Like "PQ*" Or _ 
     Cells(I, "A") Like "AB*") Then _ 
     Cells(I, 1).EntireRow.Delete 
Next I 

End Sub 

Answer 3

ここでは、あなたがしていたものに似ているオプションがあります。

EDITED：IDが最初の2文字であれば機能します。私のコメントを1として

Sub Deleterows() 

FinalRow = Cells(Rows.count, "A").End(xlUp).row 

i = 2 

Do While i <= FinalRow 

If Not Left(Cells(i, "A"), 2) = "PQ" And Not Left(Cells(i, "A"), 2) = "ON" Then 

    Cells(i, 1).EntireRow.Delete 

    FinalRow = FinalRow - 1 

Else 

    i = i + 1 

End If 

Loop 

End Sub