Vba 如果使用for next循环在列中找到短语的一部分，则将数值输出到同一行中的另一个单元格

作为VBA的新手，我在这个网站上潜伏了很长时间，学到了不少东西，但现在有一个问题我自己无法解决

我的问题如下： 如果在运行for next循环时在列单元格中找到短语的一部分，如“dogs is cool”，则向同一行中的另一个单元格输出一个数值-因此在本例中，我搜索f列并向j列输出一个真实结果

我一直在尝试if-then语句，但似乎无法使其工作-任何人

---

这是一个4000行的文档，是我需要找到的一个特定的重复短语，如果它在那里，它会影响该行用于计算的值。下面的代码将进行简单搜索并提供起始位置。您可以在任何地方保存生成的值

Function Find_String()
Dim strYourString       As String
Dim strSearchFor        As String
Dim iFound          As Integer
    strYourString = "Every day I think to myself: 'Dogs are cool'"
    strSearchFor = "dogs"

    iFound = InStr(1, strYourString, strSearchFor)
    If iFound > 0 Then
        MsgBox "Found your words starting in position: " & iFound
    End If
End Function

谢谢各位， 通过抄袭Waynes的解决方案，我已经把我需要做的事情整理好了

Sub findthenchangequantitycolumn()
Dim strYourString       As String
Dim strSearchFor        As String
Dim iFound          As Integer
For i = 9 To 3800
strYourString = Cells(i, 6).Value
strSearchFor = "TRAYS OF 20"

iFound = InStr(1, strYourString, strSearchFor)
If iFound > 0 Then Cells(i, 10).Value = 20
   iFound = 0

接下来我 End Sub

我一直在尝试if-then语句-请向我们展示您的尝试以及哪些不起作用？