VBA excel查找公式isse

我试图使用公式

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

非常感谢您对解决我的代码问题的任何帮助

提前感谢

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

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