Excel中单元格含数据时如何将对应行移动到目标空行

Excel原生工作表函数无法实现行移动操作——函数仅支持返回计算结果，不具备修改单元格位置、跨区域写入/移动内容的权限，该需求可通过VBA代码实现，支持自动触发无需手动操作。

核心实现逻辑 #

• 绑定工作表内容变更事件，当表2的中间检测列被填入非空内容时自动触发规则
• 触发后自动定位表1区域的下一个空白行，作为内容粘贴的目标位置
• 将表2中符合触发条件的整行内容复制/剪切到表1的目标位置
• 操作完成后自动恢复事件监听，避免误触发死循环

使用步骤 #

• 打开需要设置的Excel文件，按Alt+F11快捷键调出VBA编辑器
• 在左侧工程资源管理器中，双击表2对应的工作表对象，打开对应的代码编辑窗口
• 将下方代码粘贴到编辑窗口中，根据自己表格的实际列号、行号调整代码开头的常量参数即可

可直接复用的VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' ========== 可根据实际表格情况修改以下参数 ==========
    Const TABLE2_CHECK_COL As Integer = 2       ' 表2的检测列号，示例中中间列是第2列即B列
    Const TABLE1_FIRST_COL As Integer = 1       ' 表1第一列的列号，示例中左对齐列是第1列即A列
    Const MOVE_AND_DELETE_SOURCE As Boolean = False ' 如需移动后删除表2原行，把False改成True
    ' ==================================================
    
    Dim table1NextBlankRow As Long
    Dim sourceRow As Range
    
    ' 关闭事件触发，避免复制/删除操作递归触发本事件
    Application.EnableEvents = False
    On Error GoTo RecoverEvent

    ' 仅当修改位置在表2检测列、且单元格内容非空时执行后续操作
    If Not Intersect(Target, Me.Columns(TABLE2_CHECK_COL)) Is Nothing And Trim(Target.Value) <> "" Then
        Set sourceRow = Target.EntireRow
        ' 计算表1的下一个空白行位置
        table1NextBlankRow = Me.Cells(Me.Rows.Count, TABLE1_FIRST_COL).End(xlUp).Row + 1
        ' 复制整行内容到表1目标位置
        sourceRow.Copy Destination:=Me.Rows(table1NextBlankRow)
        ' 按参数判断是否删除原行
        If MOVE_AND_DELETE_SOURCE Then sourceRow.Delete
    End If

RecoverEvent:
    ' 恢复事件监听
    Application.EnableEvents = True
End Sub

针对示例场景的适配说明 #

• 示例中表1、表2位于同一工作表，表1共3列、现有2行有效数据，代码默认会自动识别第3行的空白位置作为粘贴目标，不需要手动指定行号
• 示例中表2的检测列为居中列（第2列），和代码默认参数一致，粘贴后会自动保留原有的左对齐、居中、右对齐格式，不需要重新设置
• 如果表1和表2分属不同工作表，只需要在代码中分别给表1、表2指定对应的工作表对象即可，核心逻辑不需要修改

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