看起来你现在遇到的核心问题是：Excel公式只能帮你动态提取复制数据，但没法实现「剪切（删除原行+粘贴到目标表新行）」+「自动移除空行」的操作——因为公式本身是只读的，只能读取数据做展示，不能修改原始数据。要实现你要的效果，得用VBA宏来搞定，我给你分场景写好代码，一步步教你怎么弄：

先明确前提 #

你的工作表名称分别是：Interested Candidates、Rejected Candidates、Candidate Track、Onboarding Track，代码里会直接用这些名称，要是你表名有改动记得同步修改代码里的工作表名称。另外看你用了结构化表格（带表头的那种），代码里会利用这个特性来精准定位列，避免列位置变动导致出错。

场景1：把Interested Candidates中「Rejected」列为yes的行移到Rejected Candidates #

这个宏会自动找到符合条件的行，剪切到目标表的新行，同时删除原表的行，后面的行自动往上填补，不会留空：

Sub MoveRejectedCandidates()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long, targetLastRow As Long
    
    '设置源表和目标表
    Set wsSource = ThisWorkbook.Worksheets("Interested Candidates")
    Set wsTarget = ThisWorkbook.Worksheets("Rejected Candidates")
    
    '获取源表最后一行（避免遍历空行）
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    '从下往上遍历（关键！如果从上往下删行，后面的行号会错乱，导致漏处理）
    For i = lastRow To 2 Step -1 '假设第1行是表头，从第2行开始处理数据行
        '通过结构化表格的列名定位「Rejected」列，不用记列号
        If wsSource.Cells(i, wsSource.ListObjects("Interested_Candidates").ListColumns("Rejected").Index).Value = "yes" Then
            '找到目标表的最后一行，在下面新增一行粘贴
            targetLastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
            '复制整行到目标表
            wsSource.Rows(i).Copy Destination:=wsTarget.Rows(targetLastRow)
            '删除源表的该行，后面的行自动上移
            wsSource.Rows(i).Delete Shift:=xlUp
        End If
    Next i
End Sub

场景2：把Interested Candidates中「Interested?」列为yes的行移到Candidate Track #

逻辑和上面一致，只是目标表和判断列不同：

Sub MoveInterestedToCandidateTrack()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long, targetLastRow As Long
    
    Set wsSource = ThisWorkbook.Worksheets("Interested Candidates")
    Set wsTarget = ThisWorkbook.Worksheets("Candidate Track")
    
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    For i = lastRow To 2 Step -1
        If wsSource.Cells(i, wsSource.ListObjects("Interested_Candidates").ListColumns("Interested?").Index).Value = "yes" Then
            targetLastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
            wsSource.Rows(i).Copy Destination:=wsTarget.Rows(targetLastRow)
            wsSource.Rows(i).Delete Shift:=xlUp
        End If
    Next i
End Sub

场景3：把Candidate Track中「Job Offer Accepted」列为yes的行移到Onboarding Track #

同样的逻辑，适配新的源表和判断列：

Sub MoveAcceptedToOnboarding()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long, targetLastRow As Long
    
    Set wsSource = ThisWorkbook.Worksheets("Candidate Track")
    Set wsTarget = ThisWorkbook.Worksheets("Onboarding Track")
    
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    For i = lastRow To 2 Step -1
        If wsSource.Cells(i, wsSource.ListObjects("Candidate_Track").ListColumns("Job Offer Accepted").Index).Value = "yes" Then
            targetLastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
            wsSource.Rows(i).Copy Destination:=wsTarget.Rows(targetLastRow)
            wsSource.Rows(i).Delete Shift:=xlUp
        End If
    Next i
End Sub

怎么使用这些宏？ #

方法1：手动点击按钮触发

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 在左侧「工程资源管理器」里，右键点击你的工作簿名称，选择「插入」→「模块」
3. 把上面三个宏的代码粘贴到新模块里
4. 回到Excel，点击「开发工具」选项卡（如果没显示，去「文件」→「选项」→「自定义功能区」勾选「开发工具」）
5. 点击「插入」→「按钮（表单控件）」，在工作表上画一个按钮，然后选择对应的宏（比如选MoveRejectedCandidates），确定后给按钮改个易懂的名字（比如「移动已拒绝候选人」）
6. 当你把对应列改成yes后，点击按钮就会自动完成剪切+移动+删除空行的操作

方法2：自动触发（修改单元格后自动执行）

如果你想实现「只要在对应列输入yes，就自动移动行」，可以给工作表加事件代码：

1. 打开VBA编辑器，在左侧「工程资源管理器」里双击Interested Candidates工作表
2. 粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    '只监听「Rejected」和「Interested?」列的修改
    Dim rejectedCol As Integer, interestedCol As Integer
    rejectedCol = Me.ListObjects("Interested_Candidates").ListColumns("Rejected").Index
    interestedCol = Me.ListObjects("Interested_Candidates").ListColumns("Interested?").Index
    
    '如果修改的是Rejected列且值为yes，触发移动
    If Not Intersect(Target, Me.Columns(rejectedCol)) Is Nothing Then
        If Target.Value = "yes" Then
            MoveRejectedCandidates
        End If
    End If
    
    '如果修改的是Interested?列且值为yes，触发移动
    If Not Intersect(Target, Me.Columns(interestedCol)) Is Nothing Then
        If Target.Value = "yes" Then
            MoveInterestedToCandidateTrack
        End If
    End If
End Sub

3. 再双击Candidate Track工作表，粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim acceptedCol As Integer
    acceptedCol = Me.ListObjects("Candidate_Track").ListColumns("Job Offer Accepted").Index
    
    '如果修改的是Job Offer Accepted列且值为yes，触发移动
    If Not Intersect(Target, Me.Columns(acceptedCol)) Is Nothing Then
        If Target.Value = "yes" Then
            MoveAcceptedToOnboarding
        End If
    End If
End Sub

这样以后，只要你在对应列输入yes，就会自动完成所有操作，完全不用手动点按钮。

注意事项 #

1. 先备份文件：宏操作会直接修改原始数据，建议先备份你的Excel文件，避免出错导致数据丢失
2. 结构化表格适配：如果你没有把表格转成结构化表格（就是带表头的那种正式表格），可以把代码里的ListObjects部分改成直接用列号，比如Rejected列是F列的话，就写成wsSource.Cells(i, "F").Value
3. 启用宏：打开文件时如果弹出安全警告，记得点击「启用内容」，否则宏不会运行

备注：内容来源于stack exchange，提问作者Nik