質問: "○" '選択したセルに○って入れる End If Next i MsgBox ("チェック完了!!") End Sub ```
回答: NGワードのシートとアクティブシート両方を同時にループで参照してしまっているため不具合が起こっているのでしょう。 以下のように変更してみてください。各シートの最終行の取得部分はご自身で書いてみてくださいね。 ``` For i = 1 To [アクティブシートの最終行] For j = 1 To [NGワードシートの最終行] Str1 = wS1.Cells(i, A) Str2 = wS2.Cells(j, "A") If InStr(Str1, Str2) <> 0 Then wS1.Cells(i, A).Offset(0, 1).Select '右隣のセルを選択 Selection = "○" '選択したセルに○って入れる End If Next j Next i ``` 20180509 20:00追記 ``` Dim counter As Long '数を数えるための変数 For i = 1 To [アクティブシートの最終行] counter = 0'アクティブシートの文章ごとに初期化 For j = 1 To [NGワードシートの最終行] Str1 = wS1.Cells(i, A) Str2 = wS2.Cells(j, "A") If InStr(Str1, Str2) <> 0 Then wS1.Cells(i, A).Offset(0, 1).Select '右隣のセルを選択 Selection = "○" '選択したセルに○って入れる counter = counter + 1 'さらにヒットした数を数える End If Next j Next i ```