Excel VBA需求：F列变更时按双条件移动整行至指定工作表

需求：当"Tasks"工作表的F列单元格内容为complete或discontinued（不区分大小写）时，自动将整行移动到同一工作簿的"Completed Tasks"工作表的下一个可用行，且操作在F列内容变更时触发。

原代码问题：仅支持手动执行、只判断了Complete一个条件，无法满足自动触发和双条件需求。

修改后的完整代码 #

1. 工作表事件代码（必须放在「Tasks」工作表的代码模块中）

打开VBA编辑器（Alt+F11），找到左侧工程窗口中的「Tasks」工作表，双击打开后粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理F列的单个单元格变更
    If Target.Column = 6 And Target.Cells.Count = 1 Then
        ' 禁用事件避免循环触发
        Application.EnableEvents = False
        
        ' 判断单元格内容是否为目标值（不区分大小写）
        Select Case UCase(Target.Value)
            Case "COMPLETE", "DISCONTINUED"
                ' 调用移动行的子过程
                MoveRowToTarget Target.Row
        End Select
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

2. 通用移动行子过程（可放在标准模块或同一工作表模块中）

Sub MoveRowToTarget(sourceRow As Long)
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim targetLastRow As Long
    
    ' 定义源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("Tasks")
    Set targetSheet = ThisWorkbook.Worksheets("Completed Tasks")
    
    ' 找到目标工作表的最后一行（下一个可用行）
    targetLastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 剪切并粘贴整行到目标工作表
    sourceSheet.Rows(sourceRow).Cut Destination:=targetSheet.Rows(targetLastRow)
End Sub

关键说明 #

• 自动触发逻辑：Worksheet_Change事件会在工作表内容变更时自动执行，通过Target对象判断确保只处理F列的单个单元格修改。
• 大小写兼容：用UCase()函数统一转换为大写判断，避免因大小写输入差异导致的判断失效。
• 高效移动：采用Cut直接移动行，比Copy+Delete更高效，且保留单元格格式、公式等属性。
• 避免循环：操作前禁用Application.EnableEvents，防止移动行时再次触发变更事件造成循环。

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