根据另一个工作表中的可见范围删除行

Question

我有 2 个工作表，sheet1 和 sheet2。由于两张表中有共同的行，我想删除 sheet1 中可以在 sheet2 中找到的行。我只希望为具有条件“Y”的列删除工作表 1 中的行。我使用 sheet2 中的条件 Y 过滤了列，并选择了范围作为可见范围。所以 sheet1 中行的删除要根据 sheet2 中的可见范围。但是，在 sheet1 中删除行是根据 sheet2 删除每个出现的事件，而不是根据可见范围。我有下面的代码，但它不工作。有人可以让我知道我做错了什么吗？谢谢。

lastrow = Sheets("Sheet1").Cells.Find("*", searchorder:=xlByRows, SearchDirection:=xlPrevious).Row

With Sheets("Sheet2")
    .AutoFilterMode = False
    .Range("B1").AutoFilter Field:=2, Criteria1:="Y"
End With

With Sheets("Sheet1")
    For i = lastrow To 1 Step -1
            If IsNumeric(Application.Match(.Range("A" & i).Value, Sheets("Sheet2").Range("A1:B" & lastrow).SpecialCells(xlCellTypeVisible), 0)) Then
            .Rows(i).Delete
            End If
    Next i
End With

Answer 1

如果我正确理解要求，此代码将起作用。

With Sheets("Sheet2")

    Dim lastRow As Long
    lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row

    Dim data As Range
    Set data = .Range("B1:B" & lastRow)

    .AutoFilterMode = False
    data.AutoFilter 1, "Y"

    Dim deleteRows As Range
    Set deleteRows = data.SpecialCells(xlCellTypeVisible)

End With

Worksheets("Sheet1").Range(deleteRows.Address).EntireRow.Delete

要删除 sheet2 过滤数据中的 sheet1 中的值，请执行此操作

Dim d as Range
For each d in deleteRows

    Dim found as Range
    Set found = Worksheets("Sheet1").Columns(1).Find(d.Value,lookat:=xlWhole)

    If not found is Nothing Then

        Dim removeFrom1 as Range
        If removeFrom1 is Nothing Then
            set removeFrom1 = found
        else
            set removeFrom1 = Union(removeFrom1,found)
        end If

    End If

Next

removeFrom1.entirerow.delete