请求修改VBA代码：根据A列单元格文本匹配不同Excel公式

原代码存在几个核心问题：判断逻辑错用了B列的"OLT"而非A列的目标文本、循环中重复覆盖整列公式、公式字符串的双引号未转义导致编译失败。以下是修正后的代码：

Sub Name_Extraction()
    Dim lastRow As Long
    Dim line As Long
    
    ' 获取A列最后一行有数据的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始遍历每一行
    For line = 2 To lastRow
        ' 判断当前A列单元格是否包含"DOG"（vbTextCompare忽略大小写，需区分可删除）
        If InStr(1, Range("A" & line), "DOG", vbTextCompare) > 0 Then
            ' 设置对应B列的DOG公式，注意双引号用两个""转义
            Range("B" & line).FormulaR1C1 = "=MID(LEFT(RC[-1],FIND(""(FOR"",RC[-1])-1),FIND(""DOG"",RC[-1])+3,LEN(RC[-1]))"
        ' 判断当前A列单元格是否包含"CAT"
        ElseIf InStr(1, Range("A" & line), "CAT", vbTextCompare) > 0 Then
            ' 设置对应B列的CAT公式
            Range("B" & line).FormulaR1C1 = "=MID(LEFT(RC[-1],FIND(""(FOR"",RC[-1])-1),FIND(""CAT"",RC[-1])+3,LEN(RC[-1]))"
        Else
            ' 可选：A列既不含DOG也不含CAT时，清空B列单元格或自定义处理
            Range("B" & line).ClearContents
        End If
    Next line
End Sub

关键修正说明： #

• 逻辑对齐需求：改为检查A列单元格内容，匹配"DOG"/"CAT"后给对应B列行设置公式
• 逐行独立处理：不再一次性覆盖整列，避免之前的结果被重复覆盖
• 语法错误修复：公式中的双引号用两个""转义，解决VBA编译报错问题
• 行范围优化：基于A列的有效数据行遍历，避免处理空行或无效行

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