VBA循环中如何保留if语句内赋值变量Z的迭代状态？

兄弟，你的问题根源其实很明显——代码里有个致命的多余语句直接打断了外层循环，导致Z的更新根本没机会传递到下一次迭代！咱们一步步拆解：

核心问题：错误的Exit For #

看你代码里第一个If Z=2块结束后，有一行Exit For，这行代码会直接终止外层的For i = 2 To 80循环，也就是说i只跑了一次（i=2）就停了，自然下一次迭代根本不会发生，你看到的Z变回2其实是因为整个过程只执行了一轮，Z的更新没机会被保留到下一次循环。

另外还有个小bug：第二个If Z=1块里，你把Cells(l, "A").Value设为空后，又把Z赋值为这个空值，这显然不是你想要的——应该和第一个块一样，取Cells(l, "C").Value作为新的Z值。

修正后的代码 #

Sub qwer()
    Z = 2
    ' 外层i循环正常执行，移除错误的Exit For
    For i = 2 To 80
        If Z = 2 Then
            For l = 2 To 80
                If Cells(l, "A").Value = 2 Then
                    Cells(i, "F").Value = Cells(l, "E").Value
                    Cells(l, "A").Value = ""
                    ' 从C列获取新的Z值，和逻辑保持一致
                    Z = Cells(l, "C").Value
                    Exit For
                End If
            Next l
        End If
        
        If Z = 1 Then
            For l = 2 To 80
                If Cells(l, "A").Value = 1 Then
                    Cells(i, "F").Value = Cells(l, "E").Value
                    Cells(l, "A").Value = ""
                    ' 修正Z的赋值，取C列的值而非清空后的A列
                    Z = Cells(l, "C").Value
                    Exit For
                End If
            Next l
        End If
    Next i
End Sub

额外优化建议（可选） #

你两个For l循环的逻辑几乎一致，只是判断的A列值和Z的条件不同，可以合并成一个循环，让代码更简洁易维护：

Sub qwerOptimized()
    Z = 2
    For i = 2 To 80
        For l = 2 To 80
            ' 统一判断当前Z对应的A列值
            If Cells(l, "A").Value = Z Then
                Cells(i, "F").Value = Cells(l, "E").Value
                Cells(l, "A").Value = ""
                Z = Cells(l, "C").Value
                Exit For
            End If
        Next l
        ' 如果找不到对应Z值，可以考虑退出外层循环或做其他处理
        ' 比如：If Z <> 1 And Z <> 2 Then Exit For
    Next i
End Sub

这样修改后，Z的值就会在每次i循环迭代时保留上一次更新后的状态，完全符合你的需求。

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