VBA Do Until Loop死循环问题求助：值达0仍无法终止循环

问题根源 #

你代码的核心问题在于只在循环启动前读取了一次命名区域的值：

• NamedRangedForMacro = Range("MyNamedRangeInMyExcel") 这条语句仅在循环开始时执行一次，之后即使Excel中该命名区域的数值变为0，变量NamedRangedForMacro的数值也不会自动更新。
• 循环条件Do Until NamedRangedForMacro = 0一直基于最初的数值判断，永远无法触发终止条件，因此陷入死循环。

修正方案 #

需要在每次循环中重新读取命名区域的最新值，让条件判断能实时响应单元格数值变化。以下是两种可行的修正写法：

写法1：在循环内更新变量值

Sub MyMacro()
    Dim NamedRangedForMacro As Variant ' 显式声明变量，提升代码可读性与稳定性
    
    Do 
        ' 每次循环都重新获取命名区域的最新值
        NamedRangedForMacro = Range("MyNamedRangeInMyExcel").Value
        
        ' 执行复制粘贴操作
        Range("MyNamedRangeInMyExcel_copy").Copy
        Range("MyNamedRangeInMyExcel_paste").PasteSpecial Paste:=xlPasteValues
        
    Loop Until NamedRangedForMacro = 0 ' 当值为0时终止循环
End Sub

写法2：直接在循环条件中读取单元格值

Sub MyMacro()
    Do Until Range("MyNamedRangeInMyExcel").Value = 0
        Range("MyNamedRangeInMyExcel_copy").Copy
        Range("MyNamedRangeInMyExcel_paste").PasteSpecial Paste:=xlPasteValues
    Loop
End Sub

额外注意事项 #

• 确保MyNamedRangeInMyExcel是单个单元格的命名区域：如果是多单元格区域，Range.Value会返回数组，此时=0的判断逻辑会不符合预期。
• 养成显式声明变量的习惯（使用Dim语句），避免隐式类型转换引发的潜在问题，同时让代码结构更清晰。

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