VBA excel查找公式VBA

Question

我试图使用公式FIND，以便使用以下代码从单元格A1上的文本中搜索第一个字符@的位置：FIND("@";A1)：

LR = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To LR
    cel = "A" & i
    Range("Q" & i).Formula = "=FIND(" & "@" & "," & cel & ")"

Next i

任何帮助解决我的代码问题都是非常感谢的。

提前感谢

Answer 1

您可以使用Instr()函数直接写入搜索的字符位置：

For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    Range("Q" & i).Value = Instr(Range("A" & i).Value2, "@")
Next