在另一张表格中finddynamic范围内的文字

我正在创build一个VBA应用程序，它将查找我在某个范围内input的文本（应该是dynamic的，以便将来我input更多）。 在这个范围内input的文本将查找另一个工作表栏中的单词：

例：

它会查找另一张表格中input的字词。

Dim Main as Worksheet Set Main = Sheets("Sheet1") Dim Raw2 as Worksheet Set Raw2 = Sheets("Sheet2") LookFor = Main.Range(D8:100) Fruits = Raw2.Range("G" & Raw2.Rows.Count).End(xlUp).row For e = lastRow To 2 Step -1 value = Raw2.Cells(e, 7).value If Instr(value, LookFor) = 0 _ Then Raw2.Rows(e).Delete 

老实说，我不知道如何进行。 而提到的代码只是实验。 所需的输出是删除sheet2中的任何内容，除了包含我在“查找单词”中input的单词的行。 希望您能够帮助我。 谢谢。

Answer 1

这应该做的伎俩：

 Sub Sevpoint() Dim Main As Worksheet Set Main = Sheets("Sheet1") Dim Raw2 As Worksheet Set Raw2 = Sheets("Sheet2") Dim LooKFoR() As Variant Dim LastRow As Double Dim i As Double Dim j As Double Dim ValRow As String Dim DelRow As Boolean LooKFoR = Main.Range(Main.Range("G8"), Main.Range("G" & Main.Rows.Count).End(xlUp)).Value LastRow = Raw2.Range("G" & Raw2.Rows.Count).End(xlUp).Row For i = LastRow To 2 Step -1 ValRow = Raw2.Cells(i, 7).Value DelRow = True 'MsgBox UBound(LooKFoR, 1) For j = LBound(LooKFoR, 1) To UBound(LooKFoR, 1) If LCase(ValRow)<>LCase(LooKFoR(j, 1)) Then Else DelRow = False Exit For End If Next j If DelRow Then Raw2.Rows(i).Delete Next i End Sub