VBA迭代search每个单元格的string

我正在为我的工作设备数据库工作，我试图在一个列的每个单元格中search一个variablesstring，一旦find该string，我需要分配另一个variables的单元格的值列正在search的列旁边。 我可以执行循环和迭代，如果语句，但是我很难find一个函数，将允许我searchstring的特定单元格。

有什么方法可以指定一个单元格的search，有点像Cells（x，y）.find（）等等。 还是不存在？ 另外，我在InStr（）函数中发现了很多文档，但是只计算一个string出现在列中的次数，对吗？ 有没有什么办法可以返回string中find的单元格的行数？ 感谢您提供的任何帮助。

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（）可能是正确的。 以下是search列的一个小例子：

 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（）方法。