在另一页中找到动态范围内的文本

I am creating a VBA application that will find the text that I have entered in a certain range (Should be dynamic, in order for me to input more in the future). With that the entered texts in the range will look for the words in another sheet column:

我正在创建一个VBA应用程序，该应用程序将查找我在一定范围内输入的文本(应该是动态的，以便我在未来输入更多内容)。这样，范围内的输入文本将在另一个表列中查找:

Example:

例子:

And it will look for the words inputted in another sheet.

它会寻找输入在另一张纸上的单词。

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 

Honestly I am not sure how to proceed. And the mentioned code is just experiment. Desired output is to delete anything in sheet2 except for the rows that contain the words that I have inputted in the "Look for the words". Hope you can help me. Thank you.

老实说，我不知道该怎么做。上面提到的代码只是实验。期望的输出是删除sheet2中的任何内容，除了包含我在“查找单词”中输入的单词的行。希望你能帮助我。谢谢你！

1 个解决方案

#1

This should do the trick :

这应该可以做到:

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