.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"の両方を持つ行を検索したいと思います。結果は "これはテスト文字列です"と "これはテストマッチです" これを行うにはどうすればよいですか？ 入れ子の.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 

の線に沿って何かを使用していないが、これは、細胞の両方で「これ」と「テスト」を探しますとメッセージボックスを作成します見つかったときに細胞の内容で。