Как искать несколько строк с использованием .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" 

Я хотел бы найти строки, которые имеют как «Это», так и «Тест». Таким образом, результат должен быть «Это тестовая строка» и «Это тестовое соответствие» Использование 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 

Вам нужно будет кратна это для ваших конкретных потребностей, но это будет выглядеть как для «This» и «тест» в клетке и создать окно сообщения с содержимым ячеек.