ハーフレコードのみ削除 - Whileループ（VBA）を使用

Question

したがって、検索されるレコードの半分だけが削除されます。コードスニペットをPFBします。例：CityNameの32インスタンスが存在します。 16個だけが削除されます。

i As Long, lngEndRowInv As Long 
Set wsh = ThisWorkbook.ActiveSheet  
i = 1 
lngEndRowInv = wsh.Range("A" & Rows.Count).End(xlUp).Row 
While i <= lngEndRowInv 
If Cells(i, "A") = "CityName" Then 
Cells(i, "A").EntireRow.Delete 
End If 
i = i + 1 
Wend 

これは逆のアプローチと関係がありますか？どんな助けや方向性もありがとうございます。ありがとう！

Answer 1

あなたが行2を削除した場合ので、その後、どのような以前の行3であったことは、今あなたは、あなたがそんなに

If Cells(i, "A") = "CityName" Then 
    Cells(i, "A").EntireRow.Delete 
    i = i -1 
    lngEndRowInv = lngEndRowInv -1 
End If