2つの異なるシートの2つのセルが同じ場合にシート内の行を削除する

Question

このマクロは、同じブックの2つのワークシート内の2つの異なる行のセルを比較する必要があります。セルの値が3番目のワークシートの同じ値を持つセルの行と一致する場合、同じブックが削除される必要があります。

比較されるシートでは、式はありますがシートにはありません。行は削除する必要があります。

問題は、3枚目のシートのセルを削除しないということです。 比較が機能することを示唆するコードを挿入しました。しかし、コードはランダムに削除するようだ。

は、私は次の（およびいくつかの他の人が私はもうリンクを持っていけないし、）リンクから解決策を試してみました：コードを使用する場合には

How to compare columns from two different excel workbooks

Compare 2 cells in different sheets in VBA(Excel 2010)

Sub Vergleich_alter_Kundenausdruck_mit_aktuellen_Werten_V3() 

Application.ScreenUpdating = False 

Dim Sht1LastRow As Long 
Dim i As Long 
Dim j As Long 

Set s1 = Sheets("Konditionen") 
Set s2 = Sheets("Konditionseingabeausdruck") 
Set s3 = s2.Next 

Sht1LastRow = Sheets("Konditionen").Cells(65536, 1).End(xlUp).Row 

For i = Sht1LastRow To 15 Step -1   
    If IsEmpty(s1.Cells(i, 6)) = True Then GoTo leer:       
    If s3.Cells(i, 5).Value <> s1.Cells(i, 6).Value Then 
    s1.Cells(i, 10).Value = s3.Cells(i, 5).Value  
    ElseIf s3.Cells(i, 5).Value = s1.Cells(i, 6).Value Then 
    s2.Cells(i, 6).EntireRow.Delete 
    s1.Cells(i, 9).Value = s3.Cells(i, 5).Value 
    Else       
    GoTo leer: 
    End If    
leer:    
Next i   

Application.ScreenUpdating = True 

End Sub 

Answer 1

：

Dim i As Long 
With Workbooks("Book1").Worksheets("Sheet1") 
    For i = 1 To 4 
     If IsEmpty(.Cells(i, 1)) Then .Rows(i).Delete 
    Next i 
End With 

あなたはいくつかの行を見逃します。たとえば、コードが行3を削除すると、行4は行3になります。ただし、変数iは4に変更されます。この場合、コードは1行を欠き、以前に範囲外だったコードをチェックします。

は、あなたのケースでは、あなたが行を削除する場合は、あなたが行を通して後方ステップする必要があり、この

For i = Sht1LastRow To 15 Step -1