VBA Excel：根据其他工作表中的值删除行 [重复]

问：

我目前正在尝试清理我的数据集。我目前有两张纸：“sheet1”和“sheet2”。 sheet2 中的前 11 列链接到 sheet1，因此是相同的。但是，第 13 列包含在 sheet2 中，即“是”或“否”。

我的目标是制作一个 VBA 宏，当 sheet1（第 13 列）中的确切行显示“是”时，它会删除 sheet2 中的特定行。但是，使用我当前的代码，只有 sheet2 中的顶部 （i = 2） 行被删除。

其背后的想法是，当 sheet1 中的一行被删除，并且 sheet2 链接到 sheet1 时，sheet2 将被自动删除。

我目前的代码：

Sub Coentunnel_Delete_rows()
    Dim Acc As Worksheet
    Dim Rev As Worksheet
    Set Acc= Worksheets("Sheet1")
    Set Rev= Worksheets("Sheet2")
    For i = 2 To Acc.UsedRange.Rows.Count
        If Rev.Cells(i, 13).Value = "Yes " Then
            Rows(i).EntireRow.Delete
        End If
        If Rev.Cells(i, 13).Value = "Yes " Then
            Rows(i).EntireRow.Delete
        End If
    Next i
End Sub