VBA反向遍历For循环直接跳过执行是什么原因？如何解决？

问题根本原因 #

循环直接跳过的核心问题是For语句的步长设置错误：
反向遍历（从大的行号往小的行号迭代）时，步长参数Step必须设置为负数，你当前写的Step 1是正向遍历的步长。当Last变量值大于2时，Step 1会让循环变量每次加1，第一次判断就已经超过终止值2，因此循环会直接不执行，跳转到后续语句。

修正后可正常运行的代码 #

Sub copyPaste()
    ' 从A列复制数据到E列，按行块处理
    Dim Last As Long
    Dim emptyRow As Long
    ' 关闭屏幕刷新提升运行速度，避免闪烁
    Application.ScreenUpdating = False
    
    With ActiveSheet
        ' 加.绑定With块的ActiveSheet对象，避免跨表异常
        Last = .Range("A7391").End(xlUp).Row
        ' 反向遍历步长设为-1，从Last行向第2行迭代
        For emptyRow = Last To 2 Step -1
            If Not IsEmpty(.Cells(emptyRow, 1).Value) Then
                ' 直接通过行号定位单元格，无需Select操作
                .Cells(emptyRow + 1, 1).Copy Destination:=.Cells(emptyRow, 5)
                Application.CutCopyMode = False
            End If
            ' 若需求为每20行处理一次，可直接将步长改为-20，无需额外跳转逻辑
        Next emptyRow
    End With
    
    Application.ScreenUpdating = True
End Sub

其他优化说明 #

• 原代码中With ActiveSheet块未生效，因为块内的Range、Cells前没有加.，无法自动绑定到ActiveSheet，修正后统一添加了.避免跨表操作异常
• 移除了所有Select操作，直接通过行号列号定位单元格，运行速度更快，也不会出现选中位置偏移导致的逻辑错误
• 变量类型从Integer改为Long，Excel行号最大可达1048576，超过Integer的最大值32767，用Long可以避免溢出报错

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