Excel VBA遍历列表校验条件时提示无Do循环报错排查

报错根因 #

运行时抛出can’t use a loop without a do错误，是代码存在语法错误、逻辑漏洞、不规范写法共同导致的：

• 语法错误：代码中所有字符串边界使用的是中文全角引号“”，VBA仅能识别英文半角引号""，全角符号会直接打乱VBA对Do/If代码块边界的解析，误判循环结构不匹配。
• 逻辑漏洞：当活动单元格值不等于DM时，代码没有执行向下偏移一行的操作，Do循环会永久停留在初始选中的V2单元格形成死循环，无法完成逐行遍历的需求。
• 冗余且不稳定的写法：全程依赖Select/ActiveCell跳转选中单元格的写法运行效率极低，运行过程中如果用户手动点选工作表其他位置，会直接打乱遍历位置导致结果错误；且ActiveCell本身就是Range类型对象，额外套一层Range(ActiveCell)属于无意义的冗余写法。

修正后的稳定实现代码 #

Sub additions()
    ' 写入表头
    Range("BI1") = "Comments"
    ' 定义遍历起始单元格为V2
    Dim currentCell As Range
    Set currentCell = Range("V2")
    
    ' 逐行遍历，直到遇到空单元格停止
    Do Until IsEmpty(currentCell)
        ' 检查当前单元格值是否匹配条件
        If currentCell.Value = "DM" Then
            ' 同一行BI列（V列向右偏移39列）写入对应备注
            currentCell.Offset(0, 39).Value = "Developed Markets"
        End If
        ' 无论当前行是否匹配条件，都向下移动一行，避免死循环
        Set currentCell = currentCell.Offset(1, 0)
    Loop
End Sub

实现逻辑说明 #

• 直接通过Range对象变量currentCell记录当前遍历位置，不需要反复选中单元格，运行速度更快，也不会被用户的手动操作干扰遍历路径。
• 行偏移逻辑放在If判断外侧，保证每一次循环结束后都会移动到下一行，遍历可以正常推进直到遇到空值停止。
• 所有代码符号统一使用英文半角格式，从根源避免语法解析错误。

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