Excel VBA中For循环能否设可变上限？迭代时上限是否自动更新

当然可以在Excel VBA的For循环里设置可变上限，但得先搞清楚VBA里For循环的执行逻辑——不然可能达不到你想要的效果。

先说说你给出的代码问题：

Set sht = Worksheets(2)
For i = 1 To sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
[可能插入新行的操作]
Next i

这里的循环上限sh.Cells.Find(...).Row只会在循环开始前计算一次。比如一开始找到的最后一行是10，那循环就会严格从1跑到10，哪怕你在循环过程中插入了新行（比如把总行数变成15），这个上限也不会自动更新，新插入的5行根本不会被遍历到。

如果你需要遍历所有数据（包括循环中新增的行），有两种靠谱的实现方式：

方法一：用Do While循环替代For循环（推荐） #

这种方式每次循环都会重新计算当前的最后一行，完美适配数据范围扩大的场景：

Set sht = Worksheets(2)
i = 1
Do While i <= sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
    ' 在这里写你的业务逻辑，包括插入新行的操作
    ' 比如：sht.Rows(i + 1).Insert
    
    i = i + 1 ' 手动控制循环变量递增
Loop

每次进入循环前都会重新查询最新的最后一行行号，新插入的行自然会被包含进去。

方法二：手动维护For循环的上限和变量（不推荐，易出错） #

如果你一定要用For循环，就得手动跟踪上限的变化，同时调整循环变量来适配插入行后的索引偏移：

Set sht = Worksheets(2)
' 初始化上限
lastRow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

For i = 1 To lastRow
    ' 假设你在当前行下方插入新行
    sht.Rows(i + 1).Insert
    
    ' 更新上限（因为新增了一行）
    lastRow = lastRow + 1
    ' 调整循环变量：插入行后，原来的i+1位置变成了新行，下一次循环要处理它，所以让i减1（Next i会自动加1，刚好回到当前i值）
    i = i - 1
Next i

这种方式需要仔细处理循环变量的偏移，很容易出现重复处理或遗漏行的情况，所以更推荐用Do While循环。

总结一下：普通For循环的上限是初始化时固定的，不会自动更新；要遍历新增行，优先用Do While循环动态获取最新上限。

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