VBA按单元格条件移动行至其他工作表代码运行异常求助

• 引用不规范：大量依赖Activate/Select切换工作表，无父对象限定的Cells/Rows会默认读取当前激活表的数据，前置宏如果切换了激活工作表、关闭屏幕更新，会直接导致读错列、粘错位置，且不会抛出报错
• 硬编码错误：代码2中将F列（第6列）错写为第5列；所有复制语句均未指定行号，Worksheets("ACCF Main").Rows.Copy会复制整张工作表而非当前遍历行；工作表名称大小写混写，匹配时容易出现异常
• 逻辑效率低：逐行遍历+逐行粘贴的操作在数据量大时运行极慢，从上到下遍历如果后续加删除原行的逻辑还会出现跳行漏判

采用AutoFilter批量筛选方案，不依赖工作表激活状态，支持1-2个组合条件，适配空值匹配、文本匹配、日期比较三类常用规则：

Sub MoveRowsByCondition()
    ' ===== 配置区 按需修改以下参数即可 =====
    Const SOURCE_SHEET As String = "ACCF Main"       ' 源工作表名称
    Const TARGET_SHEET As String = "Accounts Missing Info" ' 目标工作表名称
    Const HEADER_ROW As Long = 1                     ' 表头所在行号
    Const START_DATA_ROW As Long = 2                 ' 数据起始行号
    
    ' 第一个筛选条件配置
    Const COND1_COL As Long = 77                     ' 条件所在列号，比如BY列为77、F列为6、Z列为26
    ' 条件类型可选值："empty"(空值)、"notempty"(非空)、"equal"(等于指定值)、"datebefore"(早于指定日期)
    Const COND1_TYPE As String = "empty"
    Const COND1_VALUE As Variant = ""                ' 匹配值/日期，空值/非空场景留空即可
    
    ' 第二个筛选条件配置，不需要则将COND2_ENABLE设为False
    Const COND2_ENABLE As Boolean = False
    Const COND2_COL As Long = 13
    Const COND2_TYPE As String = "empty"
    Const COND2_VALUE As Variant = ""
    ' ======================================
    
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastSourceRow As Long, lastTargetRow As Long
    Dim copyRng As Range
    
    ' 关闭非必要功能提升运行速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    On Error GoTo ErrorHandler
    
    ' 直接绑定工作表对象，完全不依赖当前激活的工作表
    Set wsSource = ThisWorkbook.Worksheets(SOURCE_SHEET)
    Set wsTarget = ThisWorkbook.Worksheets(TARGET_SHEET)
    
    ' 计算源表最后一行数据位置
    lastSourceRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    If lastSourceRow < START_DATA_ROW Then GoTo Finish ' 无有效数据直接退出
    
    ' 清除源表原有筛选
    If wsSource.AutoFilterMode Then wsSource.AutoFilterMode = False
    
    ' 应用第一个筛选条件
    With wsSource.Range(wsSource.Cells(HEADER_ROW, 1), wsSource.Cells(lastSourceRow, wsSource.Columns.Count))
        Select Case COND1_TYPE
            Case "empty"
                .AutoFilter Field:=COND1_COL, Criteria1:="="
            Case "notempty"
                .AutoFilter Field:=COND1_COL, Criteria1:="<>"
            Case "equal"
                .AutoFilter Field:=COND1_COL, Criteria1:=COND1_VALUE
            Case "datebefore"
                ' 转日期序列号规避区域格式识别错误
                .AutoFilter Field:=COND1_COL, Criteria1:="<" & CDbl(CDate(COND1_VALUE)), Operator:=xlAnd
        End Select
        
        ' 应用第二个筛选条件（启用时生效）
        If COND2_ENABLE Then
            Select Case COND2_TYPE
                Case "empty"
                    .AutoFilter Field:=COND2_COL, Criteria1:="="
                Case "notempty"
                    .AutoFilter Field:=COND2_COL, Criteria1:="<>"
                Case "equal"
                    .AutoFilter Field:=COND2_COL, Criteria1:=COND2_VALUE
                Case "datebefore"
                    .AutoFilter Field:=COND2_COL, Criteria1:="<" & CDbl(CDate(COND2_VALUE)), Operator:=xlAnd
            End Select
        End If
    End With
    
    ' 定位筛选后的可见数据行
    On Error Resume Next
    Set copyRng = wsSource.Range(wsSource.Cells(START_DATA_ROW, 1), wsSource.Cells(lastSourceRow, wsSource.Columns.Count)).SpecialCells(xlCellTypeVisible)
    On Error GoTo ErrorHandler
    
    ' 存在匹配数据时执行复制
    If Not copyRng Is Nothing Then
        ' 计算目标表下一个可用空行
        lastTargetRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row
        ' 批量复制粘贴
        copyRng.Copy wsTarget.Cells(lastTargetRow + 1, 1)
        ' 若需要实现「移动」效果（复制后删除源表对应行），放开下行注释即可
        ' copyRng.EntireRow.Delete
    End If
    
Finish:
    ' 恢复Excel默认设置
    If wsSource.AutoFilterMode Then wsSource.AutoFilterMode = False
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    ' 定位到源表A1单元格，和原有逻辑保持一致
    wsSource.Select
    wsSource.Cells(1, 1).Select
    Exit Sub
    
ErrorHandler:
    MsgBox "运行出错：" & Err.Description, vbExclamation
    Resume Finish
End Sub

仅需修改代码开头配置区的参数，无需改动核心逻辑：

• 场景1（BY列为空的行移动）：COND1_COL填77，COND1_TYPE填"empty"，COND2_ENABLE设为False
• 场景2（F列为"JNTN"且M列为空）：COND1_COL填6，COND1_TYPE填"equal"，COND1_VALUE填"JNTN"；COND2_ENABLE设为True，COND2_COL填13，COND2_TYPE填"empty"
• 场景3（F列为"TRST"且Z列日期早于2012年1月5日）：COND1_COL填6，COND1_TYPE填"equal"，COND1_VALUE填"TRST"；COND2_ENABLE设为True，COND2_COL填26，COND2_TYPE填"datebefore"，COND2_VALUE填"2012-1-5"

• 日期判断通过转换为Excel原生日期序列号做比较，完全规避不同系统区域格式导致的日期识别失败问题
• 全程无选中/激活工作表的操作，不受其他宏执行顺序、屏幕更新状态的影响
• 批量筛选+批量复制的逻辑比逐行遍历效率高10~100倍，数据量大时无卡顿

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