你现在遇到的是VBA里把循环变量lrow正确嵌入Excel公式的典型问题——新手很容易在这里踩坑，因为VBA字符串和Excel公式的引号规则容易搞混。

你的核心问题在于：直接在公式字符串里写lrow会被Excel当成普通文本，而不是解析成对应的行号。我们需要把VBA变量的实际值拼接到公式字符串中，让最终生成的公式能引用到H列对应行的单元格。

正确实现方式 #

这里提供两种清晰的写法，你可以根据公式复杂度选择：

方式1：直接字符串拼接

把"H" & lrow作为单元格引用插入公式，同时注意Excel公式里的双引号需要用两个双引号转义（VBA字符串的规则）：

Dim LastRow As Long
' 建议用实际最后行代替固定的20，代码更灵活
LastRow = Worksheets("cars").Cells(Rows.Count, "P").End(xlUp).Row
For lrow = 1 To LastRow
    If Worksheets("cars").Range("P" & lrow) = "1" Then
        Worksheets("cars").Range("A" & lrow).Formula = _
            "=RIGHT(H" & lrow & ",FIND(""."",H" & lrow & "))"
    End If
Next lrow

• 解释：H" & lrow & "会被VBA解析成H1、H2...这类单元格引用，最终写入Excel的公式就是=RIGHT(H1,FIND(".",H1))（对应第1行的情况）。
• 公式里的.需要写成"".""，这是VBA中表示字符串内双引号的规则。

方式2：用Replace方法（更易读）

如果公式较长或复杂，用占位符+替换的方式可以避免拼接时的引号混乱：

Dim LastRow As Long
Dim baseFormula As String
' 用{ROW}作为行号的占位符
baseFormula = "=RIGHT(H{ROW},FIND(""."",H{ROW}))"

LastRow = Worksheets("cars").Cells(Rows.Count, "P").End(xlUp).Row
For lrow = 1 To LastRow
    If Worksheets("cars").Range("P" & lrow) = "1" Then
        Worksheets("cars").Range("A" & lrow).Formula = Replace(baseFormula, "{ROW}", lrow)
    End If
Next lrow

这种方式先定义一个基础公式模板，再用循环变量替换占位符，可读性更强，后期修改公式也更方便。

额外小提示 #

• 尽量不要用固定的20作为循环上限，用LastRow获取P列实际的最后一行，能适配数据量变化的场景。
• 如果习惯用R1C1引用样式，写法会略有不同，但上面的A1样式是日常最常用的。

内容的提问来源于stack exchange，提问作者John