VBA执行Do Until时报错'Range' of object '_Global' failed问题求助

报错原因 #

• 代码存在HTML转义字符污染：你复制的代码中&amp是网页对&符号的转义内容，不属于VBA合法语法，粘贴到VBA编辑器后无法被识别
• 单元格引用语法错误：VBA中拼接列标识和行号的正确格式为"A" & R，原代码错误保留转义字符、额外添加逗号，导致Range函数的参数格式完全不合法，触发运行报错

修复后的标准代码 #

Sub Use_Instr()
    Dim R As Long ' 建议先声明变量，避免隐式声明风险
    R = 1
    ' 循环至A列第一个空行停止
    Do Until Range("A" & R) = ""
        ' 判断单元格是否包含apple关键词，不区分大小写可改成Ucase(Range("A" & R)) Like "*APPLE*"
        If Range("A" & R) Like "*apple*" Then
            Range("B" & R) = "Contains Apple"
        End If
        R = R + 1
    Loop
End Sub

可选优化方案 #

如果你的A列数据中间存在空行，原逻辑会在遇到第一个空行时停止遍历，漏检空行下方的数据，可以改用获取A列最后有效行的写法，遍历更完整：

Sub Use_Instr_Optimized()
    Dim R As Long, lastRow As Long
    ' 获取A列最后一个有内容的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For R = 1 To lastRow
        If Range("A" & R) Like "*apple*" Then
            Range("B" & R) = "Contains Apple"
        End If
    Next R
End Sub

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