嘿，我帮你找出原代码里的几个关键问题啦，咱们一步步来修正：

原代码的问题点 #

• 文本字符未正确转义：在Excel公式中，要查找的@属于文本常量，必须用双引号括起来，但VBA字符串里的双引号需要转义（写成两个连续的双引号""），原代码直接写@会导致公式语法错误。
• 参数分隔符不匹配：你的Excel区域设置使用分号;作为函数参数分隔符（从你给出的公式FIND("@";A1)能看出来），但代码里用了逗号,，这会让Excel无法解析公式。
• 效率可优化：逐个循环写入公式的效率较低，尤其当数据量很大时，批量赋值会快很多。

修正后的代码方案 #

方案1：修正循环版本

如果习惯用循环，修改后的代码如下：

Sub WriteFindFormula()
    Dim LR As Long
    Dim i As Long
    Dim cel As String
    
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To LR
        cel = "A" & i
        ' 注意：@用""转义，参数分隔符用;，改用FormulaLocal适配区域设置
        Range("Q" & i).FormulaLocal = "=FIND(""@"";" & cel & ")"
    Next i
End Sub

这里改用FormulaLocal属性，它会自动匹配你的Excel区域设置的分隔符，避免因地区差异导致的公式错误。

方案2：高效批量赋值版本

如果数据量大，推荐用这个方法，一次性给整列写入公式，无需循环：

Sub WriteFindFormulaBatch()
    Dim LR As Long
    Dim targetRange As Range
    
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    Set targetRange = Range("Q1:Q" & LR)
    
    ' 用R1C1样式批量赋值，自动适配每行的A列引用
    targetRange.FormulaR1C1 = "=FIND(""@"";RC[-16])"
    ' 也可以用FormulaLocal直接写A1样式公式，Excel会自动批量填充：
    ' targetRange.FormulaLocal = "=FIND(""@"";A1)"
End Sub

解释：RC[-16]是R1C1引用样式，表示当前行向左数16列的单元格（Q列到A列正好是16列间距），Excel会自动把公式调整为对应行的A列单元格引用，效率比循环高很多。

验证效果 #

运行修正后的代码后，Q列的单元格会生成正确的公式=FIND("@";A1)（对应行），能准确返回A列单元格中第一个@的位置。

内容的提问来源于stack exchange，提问作者Rafael Rodrigues Santos