如何实现单元格改为Closed时自动将对应行移至表格顶部？

你的现有宏存在两个核心问题：一是仅逐列交换单元格内容，而非移动整行；二是缺少自动触发机制，无法在单元格修改时自动运行。以下是修正后的完整解决方案：

步骤1：添加工作表自动触发逻辑 #

打开Excel的VBA编辑器（按Alt+F11），找到目标工作表“Master list”，双击打开其代码窗口，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim changedRow As Range
    
    ' 仅处理单个单元格修改的情况，避免批量操作触发重复执行
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 判断修改后的单元格值是否为"Closed"（不区分大小写）
    If UCase(Target.Value) = "CLOSED" Then
        Set changedRow = Target.EntireRow
        
        ' 将该行剪切并插入到第1行上方
        changedRow.Cut
        Rows(1).Insert Shift:=xlDown
        
        ' 清除剪切板，避免后续误操作
        Application.CutCopyMode = False
    End If
End Sub

代码说明 #

• Worksheet_Change事件会在工作表内任何单元格内容被修改时自动触发
• 用UCase统一转为大写判断，避免因大小写差异导致的漏判
• 通过EntireRow直接获取修改单元格所在的整行，剪切插入的方式比逐列交换更高效，且能完整保留整行的格式和数据关联

注意事项 #

• 代码必须放在**目标工作表（Master list）**的代码窗口中，而非普通模块里
• 如果需要支持批量修改单元格的场景，可删除If Target.Cells.Count > 1 Then Exit Sub这一行，但需注意大数量操作时的性能

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