excel - 希望制作现有代码以删除包含目标的所有行，让该目标可更改

Question

我从这个链接中找到了可以完全按照我想要的方式工作的代码。只有我希望能够更改变量。原始代码

Sub RemoveNonSites()
Dim ws As Worksheet
Dim rng As Range
Dim lastRow As Long

Set ws = ActiveWorkbook.Sheets("Transcript")

lastRow = ws.Range("G" & ws.Rows.Count).End(xlUp).Row

Set rng = ws.Range("G1:G" & lastRow)

' filter and delete all but header row
With rng
    .AutoFilter Field:=1, Criteria1:="<>*LEX1*"
    .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With

' turn off the filters
ws.AutoFilterMode = False
End Sub

只是，我希望标准中的 LEX1 提取单元格 H1 中的内容，并将其用作目标，以便我可以与公司中的其他站点共享。在过去的一周里，我尝试了 Range、分配 Dim 和许多其他的东西，但这是我第一次在 excel 中使用过滤器，并且开始失去我的头发。哈哈。任何帮助将不胜感激 =)

我正在处理的工作表示例

标签： excelfilterexcel-formula