如何根据cStatus值将Excel行移动至指定工作表？

原代码的核心问题 #

• 仅处理了N2单个单元格，未遍历所有需要检查的行
• 第二段逻辑的触发条件永远不成立（cStatus被初始化为N2单元格对象，不可能为Nothing）
• Find方法的搜索值错误，无法分别匹配"Done"或"On-going"
• 循环未更新cStatus指向，会陷入死循环
• 行引用写法错误：cStatus.EntireRow.Range("A2:N2")是多余且错误的，直接操作整行即可

修正后的VBA代码 #

Sub MoveBasedOnValue()
    Dim wsSource As Worksheet
    Dim lastRow As Long, i As Long
    Dim wsDest As Worksheet
    
    ' 设置源工作表（假设是Sheet1）
    Set wsSource = Sheet1
    
    ' 获取源表中N列最后一行的行号
    lastRow = wsSource.Cells(wsSource.Rows.Count, "N").End(xlUp).Row
    
    ' 从最后一行往上遍历（避免删除/剪切行导致行号错乱）
    For i = lastRow To 2 Step -1
        Select Case LCase(wsSource.Cells(i, "N").Value)
            Case "done"
                Set wsDest = Sheet4
            Case "on-going"
                Set wsDest = Sheet2
            Case Else
                Set wsDest = Nothing ' 空值或其他情况，不移动
        End Select
        
        If Not wsDest Is Nothing Then
            ' 剪切整行到目标表的最后一行下方
            wsSource.Rows(i).Cut Destination:=wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1)
            ' 可选：剪切后原行会留空，若需要删除空行可取消下方注释
            ' wsSource.Rows(i).Delete
        End If
    Next i
End Sub

代码说明 #

• 反向遍历：从最后一行往上处理，避免因剪切行导致后续行的行号偏移，出现遗漏或重复处理的问题
• 统一大小写匹配：用LCase()将单元格值转为小写后匹配，避免大小写不一致导致的匹配失败
• 明确空值处理：当N列值为空时，wsDest设为Nothing，直接跳过移动操作
• 准确行操作：wsSource.Rows(i)直接指向当前待处理的整行，避免原代码中错误的行引用写法

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