Excel VBA-搜索ID号，删除行

我要做的是从一张工作表中获取一个ID号，在另一张工作表中搜索该ID号，然后删除包含该ID号的所有行。我希望这个循环，这样我们就可以将它与需要删除的ID号列表一起使用

基本上，我们每天都会从报告中删除一系列正在运行的条目，我正试图用一个宏来简化这个过程

这就是我目前所拥有的，但我在循环方面遇到了问题：

Sub Test3()
  Dim vari As String
  Dim finalrow As Integer
  Dim Delete_WS As Worksheet
  Set Delete_WS = Worksheets("Delete")
  Dim AR_WS As Worksheet
  Set AR_WS = Worksheets("Attention Required")
  Dim i As Integer

  finalrow = Delete_WS.Range("L50000").End(xlUp).Row

  For i = 5 To finalrow
    vari = Delete_WS.Cells(i, 12).Value
    If AR_WS.Cells(i, 12) = vari Then
    AR_WS.Cells(i, 12).Interior.Color = RGB(255, 0, 0)
    vari = Delete_WS.Cells(i, 12).Value
    End If
Next i

---

End Sub

因为SO不是一种代码编写服务，你能用你到目前为止所做的尝试来回答你的问题吗？听起来你可以研究一下

AutoFilter

=）第二个参数应该是一个单元格。当你在要删除的工作表中循环时，要记住的一件事是你正在更改行数。因此，如果删除一项，finalrow变量将递减一。