如何返回特定关键词？

LeiRay

如题：已知sheet1里某些字段包含有sheet2里的特定关键词，请问要怎样才能将sheet2里的关键词标注在sheet1相对应的单元格内。（备注：现有的宏代码只能实现对其标注为sorting，求高手帮忙做进一步优化，将其转换成特定关键词而非单一的sorting。）
补充说明，已知宏代码如下，请高手帮忙做进一步优化。

Sub 开始筛选资信数据()
For s = 1 To 1000
    For i = 2 To 25
    If InStr(1, Sheets("Sheet1").Cells(s, 1), Sheets("Sheet2").Cells(i, 1), 0) > 0 Then

        Sheets("Sheet1").Cells(s, 2) = "sorting"

    End If
  Next
Next
End Sub

LeiRay

第一天：{:soso_e109:}高手都下班了吗？{:soso_e109:}第二天：{:soso_e109:}高手上班了没有？{:soso_e109:}