Col N基準に基づいて行全体を削除する

Question

Col Nのセルに"Completed"という単語が含まれていると、次のコードで行全体が削除されない理由がわかりません。継続と

Sub DeleteRowBasedOnCriteria()  
Dim RowToTest As Long  

For RowToTest = Cells(Rows.Count, 14).End(xlUp).Row To 2 Step -1  

With Cells(RowToTest, 14)  
    If .Value <> "Completed" _  
    Then _  
    Rows(RowToTest).EntireRow.Delete  
End With  

Next RowToTest  

End Sub 

Answer 1

私はついに次のコードで動作させました：

サブDeleteRowBasedOnCriteria2（）
シート（ "インプロセス"）。

Dim RowToTest As Long 

    For RowToTest = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 
     With ActiveSheet.Cells(RowToTest, 14) 
      If .Value = "Completed" Then ActiveSheet.Rows(RowToTest).EntireRow.Delete 
    End With 
    Next RowToTest 

End Subの

Answer 2

問題：

Sub DeleteRowBasedOnCriteria() 
    Dim RowToTest As Long 

    For RowToTest = Cells(Rows.Count, 14).End(xlUp).Row To 2 Step -1 
     With Cells(RowToTest, 14) 
      If .Value <> "Completed" Then Rows(RowToTest).EntireRow.Delete 
     End With 
    Next RowToTest 

End Sub 

Answer 3

という示唆は最小限であるが、...

サブDeleteRowBasedOnCriteria（）
暗いRowToTest限り

RowToTest =細胞について（ Rows.Count、14）。End（xlUp）.Row To 2ステップ-1

End Subの

次にRowToTest

でそして "完了" 細胞（RowToTest、14）
.Valueの<>場合_
_
.EntireRow.Delete
端と