Excel VBA查找指定列匹配值 剪切行至其他工作表及报错处理

原有代码报错原因 #

第一段代码报错原因 #

• 拼写错误：x1Down 中使用了数字1，正确应为小写L的 xlDown，这是触发「Application-defined or object defined error」的核心原因
• 逻辑与需求不符：仅支持精确匹配单个固定值，没有模糊匹配逻辑，也没有增加「Matching Gift」关键词的判断规则；仅做了复制操作，没有剪切后删除原行的逻辑，且目标表硬编码为Sheet2，没有指向你需要的Matching工作表

第二段代码报错原因 #

• 变量未定义：传入的参数是Unit，但代码中全程使用未声明的appeal_desc变量，导致引用工作表时读取到空值，拼接出不存在的工作表名称，触发下标越界（即「script out of range」）错误
• 工作表名称错误：目标表硬编码为appeal_desc & " New"，和你需要的Matching工作表不符，找不到对应工作表自然报错
• 筛选逻辑错误：没有设置多关键词模糊匹配的规则，也没有跳过表头的处理

可用修复代码 #

以下代码可完全满足需求：支持D列模糊匹配两个关键词、自动识别数据范围不需要手动调整行号、剪切匹配行到Matching工作表、自动删除原表残留空行，且匹配逻辑不需要每年调整财年固定值：

Sub MoveMatchingRows()
    Dim sourceSheet As Worksheet, targetSheet As Worksheet
    Dim lastRow As Long, targetLastRow As Long
    Dim i As Long
    ' 定义源表和目标表，可根据实际名称修改
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Matching")
    
    ' 关闭屏幕刷新加快运行速度
    Application.ScreenUpdating = False
    
    ' 获取源表D列最后一行有数据的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "D").End(xlUp).Row
    
    ' 从最后一行倒序遍历，避免删除行导致的行号错乱
    For i = lastRow To 2 Step -1 ' 假设第1行是表头，从第2行开始遍历，可根据实际调整
        ' 判断D列是否包含两个关键词中的任意一个，模糊匹配不区分大小写
        If InStr(1, sourceSheet.Cells(i, "D").Value, "FD.Matching Gifts", vbTextCompare) > 0 _
        Or InStr(1, sourceSheet.Cells(i, "D").Value, "Matching Gift", vbTextCompare) > 0 Then
            ' 获取目标表最后一行空行位置
            targetLastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
            ' 剪切整行到目标表
            sourceSheet.Rows(i).Cut Destination:=targetSheet.Rows(targetLastRow)
            ' 删除原表已剪切的行
            sourceSheet.Rows(i).Delete
        End If
    Next i
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
    MsgBox "匹配行移动完成！"
End Sub

注意事项 #

• 运行前请确认工作簿中已经存在名为Matching的工作表，避免报错
• 如果你的表头不是第1行，可以自行修改For i = lastRow To 2 Step -1中的2为对应数据起始行号
• 代码已将第一个关键词的匹配规则调整为仅匹配FD.Matching Gifts前缀，不管后续的财年后缀，不需要每年修改固定值

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