如何实现Excel中标记Completed的条目自动从Sheet1移至Master Data？

步骤1：新增「Completed」标记列 #

在Sheet1的空白列（比如最后一列）插入列，表头设为「Completed」，完成的事项对应单元格标记为√（或你习惯的其他标记，比如「Y」，后续代码可对应修改）。

步骤2：添加VBA宏实现自动迁移 #

按Alt + F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub MoveCompletedTasks()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, targetLastRow As Long
    Dim i As Long
    
    ' 指定目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Master Data")
    
    ' 获取Sheet1数据最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    ' 获取Master Data的下一个空行（用于追加数据）
    targetLastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 从下往上遍历行，避免删除行导致索引混乱
    For i = lastRow To 2 Step -1
        ' 检查Completed列（假设是D列，根据实际列调整）
        If wsSource.Cells(i, "D").Value = "√" Then
            ' 复制整行到Master Data
            wsSource.Rows(i).Copy wsTarget.Rows(targetLastRow)
            ' 删除Sheet1中的该行
            wsSource.Rows(i).Delete
            ' 更新目标行索引
            targetLastRow = targetLastRow + 1
        End If
    Next i
    
    MsgBox "已完成已办事项迁移！", vbInformation
End Sub

代码适配说明： #

• 若「Completed」列不在D列，将代码中的"D"替换为对应列字母（比如E列写"E"）
• 若标记不是√，将"√"替换为你实际使用的标记内容（比如"Y"）

步骤3：便捷触发宏（可选） #

给宏添加快速触发按钮：

1. 在Sheet1的快速访问工具栏右键，选择「自定义快速访问工具栏」
2. 选择「宏」，找到MoveCompletedTasks，添加到工具栏
3. 后续标记完完成事项，点击按钮即可自动执行迁移

注意事项 #

• 运行宏前建议备份文件，避免数据意外丢失
• 确保Master Data的表头与Sheet1一致，否则复制后会出现格式/内容错位
• 若Sheet1存在合并单元格，需调整代码适配，建议尽量避免使用合并单元格

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