Excel文章中のキーワードを見つける方法

Question

文章に「私が欲しい」という言葉があるかどうかを知りたい場合は、「りんごがある」かどうかを知りたい。

以下

コード、 サブテスト（）

LastRow_Sheet1 = Worksheets("Sheet1").UsedRange.Rows.Count 
LastRow_Sheet2 = Worksheets("Sheet2").UsedRange.Rows.Count 

For x = 2 To LastRow_Sheet1 

    po_number = Worksheets("Sheet1").Cells(x, 7).Value 
    site_name = Worksheets("Sheet1").Cells(x, 1).Value 

    For y = 2 To LastRow_Sheet2 
     If po_number <> Worksheets("Sheet1").Cells(y, 1).Value Then 
     With Worksheets("Sheet2") 
      If InStr(1, CStr(site_name), .Cells(y, 30)) >= 1 Then 
       .Range(.Cells(y, 1), .Cells(y, 31)).Copy 
       nextRow = Sheets("Sheet3").Cells(Sheets("Sheet3").Rows.Count, 1).End(xlUp).Row + 1 
       Sheets("Sheet3").Range("A" & nextRow).PasteSpecial 
      End If 
      End With 
     End If 
    Next 
Next 

End Subの

そして、いくつかの理由で、If InStr(1, CStr(site_name), .Cells(y, 30)) >= 1 Thenが機能していませんが...ある、と私はCells(y, 30)の種類があることを確信しています文字列、誰も私に何が起こるか教えてもらえますか？

多くの感謝！

ジミー

Answer 1

ただ、パラメータの順序を変更します。

If InStr(1, .Cells(y, 30), CStr(site_name)) >= 1 Then