如何使用.find搜索多个字符串

Question

Column A has values in the below rows 
A1="This is a test string"
A2="Hello how are you"
A3="Today is a good day"
A4="This is a test match"
A5="What is the time now"
A6="Test cell"
A7="This is true"

我想找到同时包含“This”和“test”的行。所以结果应该是“这是一个测试字符串”和“这是一个测试匹配” 使用excel-vba如何做到这一点？ 我们需要使用嵌套的.find吗？

Answer 1

为什么不使用

的内容

for i = 1 to 7
    if instr(1, Cells(i, 1), "This", vbtextcompare) > 0 and instr(1, Cells(i, 1), "test", vbtextcompare) Then
        Msgbox Cells(i,1).Value
    end if
next i

你需要根据你的特定需要对其进行修改，但这将同时寻找＆＃34;这个＆＃34;和＆＃34;测试＆＃34;在单元格中创建一个带有单元格内容的消息框。