VBA循环遍历账户列表逐次执行宏功能失效如何修复？

核心问题原因 #

循环无法遍历所有账户的根本原因是 循环变量rng没有被正确更新：
原代码中Set Range("rng") = rng.Offset(1, 0)是对工作表中名为rng的命名区域赋值，完全没有修改你声明的循环用Range变量rng，导致循环条件永远判断的是初始单元格L7的值，无法正常向下遍历。

修复后代码 #

Sub my_sub()
    Dim ws As Worksheet, rng As Range
    Set ws = Worksheets("summary")  '存储基金编号列表的工作表
    Set rng = ws.Range("L7")       '基金编号列表的起始行单元格
 
    Do Until IsEmpty(rng)
        ' 将当前遍历到的账户赋值给LIST区域，供执行宏使用
        Range("LIST") = rng.Value
        ' 执行自定义宏逻辑
        Call runitallpls
        ' 可选：执行完保存工作簿，符合需求中"保存后选择下一个账户"的要求
        ThisWorkbook.Save
        ' 正确更新循环变量，偏移到下一行账户
        Set rng = rng.Offset(1, 0)
    Loop
End Sub

关键修改说明 #

• 修正循环变量更新逻辑：将错误的Set Range("rng")改为Set rng，正确更新遍历位置
• 把Range("LIST") = rng的赋值逻辑移到循环内部，保证每次执行runitallpls时，LIST存储的是当前遍历到的账户值
• 新增可选的ThisWorkbook.Save代码，满足执行完单个账户逻辑后保存的需求
• 补充.Value显式取值，避免隐式类型转换导致的未知问题

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