如何阻止VBA代码重复处理已移动行？实现指定行数移动后停止

嘿，我来帮你搞定这个VBA重复移动行的问题！你的代码之所以会在移动完12行后还重复处理已移动的行，主要是两个核心问题：

• 正向循环的索引混乱：当你剪切删除一行后，下方的所有行会自动上移，但循环变量i还在递增，这不仅会让你跳过某些行没检查，更糟的是，刚被移到下方的行（它们的AVI列值还是"3. NOT ON LIST"）会被后续循环再次检测到，于是又被移到新的表尾，这就是你看到的重复移动现象。
• 多余的Delete操作：Cut操作本身已经把整行移走了，原行会变成空行，你再执行EntireRow.Delete会导致额外的行索引混乱，进一步加剧问题。

修改后的基础版代码（解决重复移动问题） #

Sub MoveLS()
    Dim i As Long ' 用Long代替Integer，避免行号超过32767时出错
    Dim lastDataRow As Long
    Dim targetRow As Long
    Dim Version3 As Worksheet
    
    Set Version3 = ActiveWorkbook.Sheets("Version 3")
    
    ' 先获取初始的最后数据行，避免循环中因行移动导致范围变化
    lastDataRow = Version3.Range("A" & Version3.Rows.Count).End(xlUp).Row
    
    ' 从最后一行往前循环！这是解决索引混乱的关键
    For i = lastDataRow To 2 Step -1
        If Version3.Cells(i, "AVI").Value = "3. NOT ON LIST" Then
            ' 动态获取当前数据区域下方的第一个空行作为目标位置
            targetRow = Version3.Range("A" & Version3.Rows.Count).End(xlUp).Offset(1, 0).Row
            
            ' 剪切并粘贴到目标位置，Cut操作后原行会自动变成空行，不需要Delete
            Version3.Cells(i, "AVI").EntireRow.Cut Destination:=Version3.Range("A" & targetRow)
        End If
    Next i
End Sub

针对“移动到数据间12个空行+移动完即停止”的定制版代码 #

如果你明确要把12行移动到预先存在的12个空行中，并且移动完就停止执行，可以用下面的代码——我们加入一个计数器，达到12次就直接退出循环：

Sub MoveLS_ToSpecificBlankRows()
    Dim i As Long
    Dim lastDataRow As Long
    Dim moveCount As Integer
    Dim targetRows As Variant
    Dim Version3 As Worksheet
    
    Set Version3 = ActiveWorkbook.Sheets("Version 3")
    ' 这里替换成你实际的12个空行的行号，按你需要的顺序排列
    targetRows = Array(15, 22, 30, 37, 45, 52, 60, 67, 75, 82, 90, 97)
    moveCount = 0 ' 记录已经移动的行数
    
    lastDataRow = Version3.Range("A" & Version3.Rows.Count).End(xlUp).Row
    
    ' 从后往前循环，确保不会跳过行
    For i = lastDataRow To 2 Step -1
        ' 移动满12行就立刻停止循环
        If moveCount >= UBound(targetRows) + 1 Then Exit For
        
        If Version3.Cells(i, "AVI").Value = "3. NOT ON LIST" Then
            ' 剪切到当前对应的空行位置
            Version3.Cells(i, "AVI").EntireRow.Cut Destination:=Version3.Range("A" & targetRows(moveCount))
            moveCount = moveCount + 1 ' 计数器加1，准备下一个目标行
        End If
    Next i
End Sub

关键修改点总结 #

1. 从后往前循环：彻底解决了删除/移动行后索引混乱的问题，不会跳过行，也不会重复处理刚移动的行。
2. 移除多余的Delete：Cut操作已经完成了行的移动，原行会自动变为空行，不需要额外删除。
3. 加入移动计数器：定制版代码中，当移动满12行后直接退出循环，完全符合你“移动完12行就停止”的需求。
4. 用Long存储行号：避免了Excel行号超过Integer最大值（32767）时的溢出错误。

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