Excel中C列填充后将表2对应行移动至表1的VBA实现方法

你之前录制的宏硬编码了固定行号，靠手动触发，只能操作指定行，要实现自动响应单元格修改、适配任意行的需求，核心靠工作表Change事件+ListObject表对象操作，不需要模拟鼠标选单元格、滚屏这类冗余操作。

操作步骤 #

• 打开目标Excel文件，按Alt+F11调出VBA编辑器
• 在左侧工程资源管理器面板，双击表2所在的工作表节点，打开对应的代码编辑窗口
• 清空窗口里原有录制的宏代码，粘贴下方提供的代码，把代码里标注的表名、工作表名改成你文件里的实际名称
• 按Ctrl+S保存文件，选择保存类型为「启用宏的工作簿(*.xlsm)」即可生效

完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl2 As ListObject, tbl1 As ListObject
    Dim changedRow As ListRow, newRow As ListRow
    
    ' ===== 按需修改以下参数 =====
    ' 表2的名称，和你Excel里显示的表名一致即可
    Const TBL2_NAME As String = "Table2"
    ' 表1的名称
    Const TBL1_NAME As String = "Table1"
    ' 表1所在的工作表名称，如果两个表在同一张表，把下面的Sheet1改成Me即可
    Set tbl2 = Me.ListObjects(TBL2_NAME)
    Set tbl1 = ThisWorkbook.Worksheets("Sheet1").ListObjects(TBL1_NAME)
    ' ==========================
    
    ' 错误兜底，避免代码报错后Excel宏功能失效
    On Error GoTo CleanUp
    ' 关闭事件响应防止递归触发，关闭屏幕更新减少闪屏
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    ' 仅当修改的位置是表2C列（表的第3列）的数据区域时才执行逻辑
    If Not Intersect(Target, tbl2.ListColumns(3).DataBodyRange) Is Nothing Then
        ' 仅处理单个单元格编辑场景，避免批量选单元格操作报错
        If Target.Cells.Count = 1 And Trim(Target.Value) <> "" Then
            ' 定位被修改的行，在表1末尾新增行
            Set changedRow = tbl2.ListRows(Target.Row - tbl2.HeaderRowRange.Row)
            Set newRow = tbl1.ListRows.Add
            
            ' 复制行内容（带值和数字格式）到表1新行，删除表2原行
            changedRow.Range.Copy
            newRow.Range.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            changedRow.Delete
        End If
    End If

CleanUp:
    ' 恢复Excel默认设置
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
End Sub

注意事项 #

• 代码必须放在表2对应的工作表代码页，不要放在标准模块里，否则单元格修改时不会自动触发代码
• 不要存成普通.xlsx格式，这类格式不保存宏代码，下次打开代码会丢失
• 如果需要复制单元格格式、公式，可以把xlPasteValuesAndNumberFormats换成对应的粘贴类型，新手阶段直接用值和数字格式粘贴最稳定
• 你之前录制宏生成的Select、SmallScroll这类模拟界面操作的代码都是冗余的，直接操作表对象读写数据不需要选中单元格，运行效率更高，也不会因为视图滚动、单元格位置变化报错

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