VBA for excel问题：如何让VBA搜索范围内的多个文本？

Question

你好我想做一个有2或3个文本框，我可以在其中输入文本值的表单，如果他们在1单元格匹配，如果我在第一个文本框中输入“你好”，vba搜索这个值，然后我在另一个文本框中输入“世界”，它在大厅列表中搜索范围内有“hello world”的范围，然后将其粘贴到另一个表单中，并且可能有多个单元格具有相同的值，直到现在我能够这样做的一个值而已，然后我试图改变它笏我需要匹配，但我不能在这里是笏我在：

Private Sub CommandButton1_Click() 

Dim rng As range 

For Each rng In Worksheets("sheet1").range("a:a") 
If rng.Value = TextBox1 Then 
rng.EntireRow.Select 
Selection.Copy Destination:=Worksheets("Sheet2").range("A" & Worksheets("Sheet2").range("A65536").End(xlUp).Row + 1) 
End If 
Next rng 
End Sub 

和actualy这个只适用于寻找细胞，只有有一句话我我正在搜索每个例子，如果我搜索“Java”，并有一个单元格.net和Java它不con con sider它在复制过程中，我希望它找到任何单元格与我给它的搜索值 tyvm

Answer 1

我不知道我是否完全得到您的问题。但是如果你想知道一个值是否在一个单元格中而另一个值。你需要使用InStr。

上述if语句看起来像这样（没有测试，但应该工作）

If InStr(rng.Value, TextBox1) > 0 and InStr(rng.Value, TextBox2) > 0 then 

希望它能帮助。