如何用VBA按特定条件复制行至另一工作表并将新行置于顶部

需求：用VBA将工作表CAI中G列值为“In Progress”的行复制到工作表AR，新行需放在AR的最顶部，原有行自动下移；同时删除CAI表中这些符合条件的行。

原代码存在的问题：会将符合条件的行追加到AR工作表的末尾，无法满足插入到顶部的需求。

修改后的VBA代码 #

Sub MoveToTopBasedOnValue()
    Dim wsCAI As Worksheet, wsAR As Worksheet
    Dim lastRowCAI As Long, i As Long
    
    ' 定义工作表对象，简化引用
    Set wsCAI = ThisWorkbook.Worksheets("CAI")
    Set wsAR = ThisWorkbook.Worksheets("AR")
    
    ' 关闭屏幕刷新，提升运行速度
    Application.ScreenUpdating = False
    
    ' 获取CAI表G列最后一行的行号（从第4行开始检查）
    lastRowCAI = wsCAI.Cells(wsCAI.Rows.Count, "G").End(xlUp).Row
    
    ' 从下往上循环处理，避免删除行后索引错乱
    For i = lastRowCAI To 4 Step -1
        If CStr(wsCAI.Cells(i, "G").Value) = "In Progress" Then
            ' 复制该行并插入到AR工作表的第1行上方，原有行下移
            wsCAI.Rows(i).Copy
            wsAR.Rows(1).Insert Shift:=xlDown
            ' 删除CAI表中当前行
            wsCAI.Rows(i).Delete
        End If
    Next i
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub

关键调整说明 #

• 插入逻辑修改：使用wsAR.Rows(1).Insert Shift:=xlDown替代原代码的追加操作，直接将复制的行插入到AR的最顶部，原有行自动下移。
• 循环方向优化：从CAI表的最后一行向上循环，避免删除行后导致后续行的索引错位，无需额外调整循环变量。
• 代码简化：移除原代码中冗余的变量判断，改用工作表对象直接操作，逻辑更直观易懂。

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