VBA 迭代地搜索每个单元格以查找字符串

Question

我正在为我的工作开发设备数据库，我正在尝试在列的每个单元格中搜索一个变量字符串，一旦找到该字符串，我需要将另一个变量分配给我正在搜索的列旁边的列中的单元格。 我可以执行循环和迭代以及 if 语句，但是我很难找到一个允许我在特定单元格中搜索字符串的函数。

有没有办法指定一个单元格的搜索，有点像 Cells(x,y).find() 等。还是不存在？另外，我在 InStr() 函数上找到了很多文档，但它只计算字符串在列中出现的次数，对吧？有没有办法返回找到字符串的行、列单元格数？感谢您提供的任何帮助。

Sub Trans()
Dim A As Range, r As Range, s As String

Set A = Range("A2:A11")

s = "T1"

For Each r In A
    If InStr(1, r.Value, s) > 0 Then
        i = r.Row
        Cells(i, C) = "here"
    End If

Next r

End Sub        

Answer 1

您对可能使用 InStr() 是正确的。下面是一个搜索列的小例子：

Sub SeekingHappiness()
    Dim A As Range, r As Range, s As String
    s = "happiness"
    Set A = Range("A1:A10")

    For Each r In A
        If InStr(1, r.Value, s) > 0 Then
            MsgBox r.Address & vbCrLf & r.Value
        End If
    Next r
End Sub

还有一个 .Find() 方法可以最小化循环。