Excel VBAで検索する

質問

Excel VBAで、Sheet1に貼り付けたテキスト内から
Sheet2に記載した(1列ごとの)キーワードを検索し
キーワードが含まれている行をSheet3に貼り付ける処理をしているのですが、始めたばかりなので上手くいきません。

下記がソースです。

Dim moji As String
Dim word As String
Dim result As Integer
For i = 3 To 103
For j = 2 To 21
moji = ThisWorkbook.Worksheets("Sheet1").Cells
(i, 1).Value
word = ThisWorkbook.Worksheets("Sheet2").Cells
(j, 2).Value
result = InStr(moji, word)
If doResult <> 0 Then
For k = 1 To 100
ThisWorkbook.Worksheets("Sheet3").Cells
(k, 1).Value= moji
Next k
End If
Next j
Next i

このソースでは上手くいかないのですが、どこがダメなのか分からないので、解決の糸口がつかめません。
アドバイスなどお願いします。

回答No.2

myRange · ベストアンサー

例えば、j=10　のときキーが含まれていた場合

（１）Exit For　なし
　　　必要ないのに、残りの行（J=11～21）まで繰り返してしまう

（２）Exit For　あり
　　　残りの行（j=11～12）をジャンプしFor～Nextを抜ける

要するにチェックの必要ない行をジャンプさせてるわけです。

今回のようにデータ数が少ない場合はExit FOrはなくてもいいのですが、、
For j=1 to 30000
のように30000セルまでチェックするとした場合
J=10　でキーが含まれていたら、そこでFor Nextを抜けないと
残り11～30000行までの29990回無駄な繰り返すことになりますよね。

これで説明になってますか？
以上ここまで。

回答No.1

myRange

普通このような検索がらみのコードでは、質問者のコードのようにはしませんが
折角ここまで作成してあるので今回は質問者のコードを修正することにします。

提示のコードから推測すると

Sheet1：データは、Ａ３～Ａ１０３
Sheet2：キーは、Ｂ２～Ｂ２１
Sheet3：Ａ１から転記

となってますが宜しいですね。

'------------------------------------　
Sub Test()
　Dim moji As String
　Dim word As String
　Dim result As Integer
　Dim i As Integer
　Dim j As Integer
　Dim k As Integer

　For i = 3 To 103
　　　moji = Worksheets("Sheet1").Cells(i, 1).Value
　　　For j = 2 To 21
　　　　　word = Worksheets("Sheet2").Cells(j, 2).Value
　　　　　result = InStr(moji, word)
　　　　　If result <> 0 Then
　　　　　　　k = k + 1
　　　　　　　Worksheets("Sheet3").Cells(k, 1).Value = moji
　　　　　　　Exit For
　　　　　End If
　　　Next j
　Next i

End Sub
'-------------------------------------------

普通はFindメソッドなど高速に検索できるものを使用します。
以上ここまで。

お礼

望んだ通りの結果になりました。ありがとうございます。
ただ、少し自分の理解が足りないので、
1つ質問させていただきたいのですが、
mojiの中にwordが含まれていた場合のExit Forの後の処理の流れがよく分からないので、詳しく教えてください。