Excel VBA表格间剪切粘贴适配求助：Tab_Main到Tab_Done数据迁移

你的问题根源在于原代码针对普通单元格区域设计，而Excel表格（ListObject）是结构化对象，直接用普通行剪切粘贴会跳过表格的自动扩展逻辑，导致内容落到表格外部。以下是适配表格场景的修正方案：

核心调整思路 #

1. 直接操作ListObject对象而非普通单元格/行，确保所有操作在表格内部完成
2. 倒序遍历源表格行（避免删除行后索引错乱，导致漏处理）
3. 通过表格的ListRows.Add方法新增目标行，自动扩展表格结构

修正后的代码 #

Sub CutRowsToDoneTable()
    Dim wsMain As Worksheet, wsDone As Worksheet
    Dim tblMain As ListObject, tblDone As ListObject
    Dim i As Long
    
    ' 绑定工作表和表格对象
    Set wsMain = ThisWorkbook.Worksheets("Main")
    Set wsDone = ThisWorkbook.Worksheets("Done")
    Set tblMain = wsMain.ListObjects("Tab_Main")
    Set tblDone = wsDone.ListObjects("Tab_Done")
    
    ' 关闭屏幕更新提升运行效率
    Application.ScreenUpdating = False
    
    ' 倒序遍历源表格行（防止删除行后索引偏移）
    For i = tblMain.ListRows.Count To 1 Step -1
        ' 判断当前行第一列是否为"X"
        If tblMain.ListRows(i).Range.Cells(1).Value = "X" Then
            ' 剪切源表格行数据
            tblMain.ListRows(i).Range.Cut
            
            ' 在目标表格末尾新增行并粘贴
            With tblDone.ListRows.Add
                .Range.PasteSpecial xlPasteAll
            End With
            
            ' 清除剪切状态
            Application.CutCopyMode = False
        End If
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

关键细节说明 #

• 表格对象绑定：通过ListObjects("表格名称")直接获取表格，避免依赖单元格坐标定位，彻底适配表格结构
• 倒序遍历：如果正序遍历，删除行后后续行会自动前移，导致索引错乱跳过部分行；倒序遍历从最后一行开始处理，不会受删除操作影响
• 自动扩展表格：tblDone.ListRows.Add会在表格末尾新增结构化行，粘贴后表格自动扩展，不会出现内容落在表格外的情况
• 效率优化：关闭屏幕更新减少界面闪烁，提升大表格处理速度

额外注意事项 #

• 确保代码中Tab_Main和Tab_Done与实际表格名称完全一致（区分大小写）
• 若只需粘贴值而非格式，可将xlPasteAll替换为xlPasteValues
• 原代码中存在工作表名称错误（判断时用了Worksheets("A Faire")），修正后统一通过表格对象访问数据，避免名称混淆

内容的提问来源于stack exchange，提问作者The Lone Gunman PB