Excel多列条件匹配行选择的VBA代码修正求助

核心问题修正 #

你之前写的Range("ArngFound.Row:GrngFound.Row")是错误的VBA引用方式——VBA无法识别字符串里的变量名，必须用&将列标和行号变量拼接成正确的区域引用，比如Range("A" & 行号 & ":G" & 行号)。

单条匹配行处理代码 #

如果只需要处理单条符合条件的行，直接剪切到M4:S6并删除原行：

Sub MoveTargetRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim targetArea As Range
    
    ' 指定操作的工作表，可替换为你的表名，比如ThisWorkbook.Worksheets("数据")
    Set ws = ActiveSheet
    ' 目标粘贴区域
    Set targetArea = ws.Range("M4:S6")
    ' 获取B列最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 从下往上遍历，避免删除行导致的索引错位
    For i = lastRow To 1 Step -1
        ' 判断B列为NaN、C列为空
        If WorksheetFunction.IsNA(ws.Cells(i, "B")) And IsEmpty(ws.Cells(i, "C")) Then
            ' 定位当前行的A-G列区域
            With ws.Range("A" & i & ":G" & i)
                ' 剪切到目标区域
                .Cut Destination:=targetArea
                ' 删除原行（剪切后A-G已空，直接删整行）
                .EntireRow.Delete
            End With
            ' 找到目标行后可退出循环（如果只需要处理第一匹配行）
            Exit For
        End If
    Next i
End Sub

多条匹配行批量处理代码 #

如果存在多条符合条件的行，需要批量剪切到目标区域（注意M4:S6是固定区域，若匹配行超过3行需调整目标区域大小）：

Sub BatchMoveTargetRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim targetArea As Range
    Dim sourceAreas As Range
    
    Set ws = ActiveSheet
    Set targetArea = ws.Range("M4:S6")
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 收集所有符合条件的A-G列区域
    For i = lastRow To 1 Step -1
        If WorksheetFunction.IsNA(ws.Cells(i, "B")) And IsEmpty(ws.Cells(i, "C")) Then
            If sourceAreas Is Nothing Then
                Set sourceAreas = ws.Range("A" & i & ":G" & i)
            Else
                Set sourceAreas = Union(sourceAreas, ws.Range("A" & i & ":G" & i))
            End If
        End If
    Next i
    
    ' 若找到匹配区域，执行剪切和删除
    If Not sourceAreas Is Nothing Then
        sourceAreas.Cut Destination:=targetArea
        sourceAreas.EntireRow.Delete
    End If
End Sub

关键说明 #

1. 避免使用Select：VBA中直接操作区域比选中后再操作效率更高，也更稳定
2. 从下往上遍历：删除行时，上面的行会自动下移，从下往上遍历不会跳过未检查的行
3. NaN判断：用WorksheetFunction.IsNA识别Excel中的NaN值，而非直接判断字符串"NaN"
4. 空值判断：IsEmpty用于判断单元格是否真正为空（区别于单元格内容为空格的情况）

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