Excel如何找出句子中的关键字

我想知道这个句子是否有我想要的单词，例如我想知道“苹果”是否在“我有一个苹果”。

下面是代码，Sub test（）

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 

结束小组

因为某些原因， If InStr(1, CStr(site_name), .Cells(y, 30)) >= 1 Then不工作..，我相信Cells(y, 30)的types是string，谁能告诉我发生了什么？

非常感谢！！

吉米

Answer 1

只要改变参数的顺序：

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