VBA实现行迁移时仅粘贴值报错问题求助

你的代码报错是因为Copy方法直接指定目标单元格时，无法链式调用PasteSpecial，需要拆分复制和粘贴操作；另外正向循环删除行会导致后续行索引错乱，出现遗漏处理的情况。以下是两种正确的实现方式：

方法一：使用Copy + PasteSpecial（保留复制操作逻辑） #

Sub move_rows_to_another_sheet_master()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 定义源工作表和目标工作表
    Set wsSource = ActiveSheet ' 也可指定具体表，如ThisWorkbook.Worksheets("你的源表名称")
    Set wsTarget = ThisWorkbook.Worksheets("TestSheet")
    
    ' 获取源表第13列的最后一行，避免遍历空单元格
    lastRow = wsSource.Cells(wsSource.Rows.Count, 13).End(xlUp).Row
    
    ' 反向循环，防止删除行后跳过数据
    For i = lastRow To 1 Step -1
        If wsSource.Cells(i, 13).Value = "Test" Then
            ' 复制整行
            wsSource.Rows(i).Copy
            ' 找到目标表的空行，仅粘贴值
            wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
            ' 清除剪贴板，避免弹窗提示
            Application.CutCopyMode = False
            ' 删除源表该行
            wsSource.Rows(i).Delete
        End If
    Next i
End Sub

方法二：直接赋值（更高效，无需剪贴板） #

如果不需要复制格式，直接赋值单元格值的方式效率更高，还能避免剪贴板相关冲突：

Sub move_rows_to_another_sheet_master()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRowSource As Long
    Dim lastRowTarget As Long
    Dim i As Long
    
    Set wsSource = ActiveSheet
    Set wsTarget = ThisWorkbook.Worksheets("TestSheet")
    
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, 13).End(xlUp).Row
    
    For i = lastRowSource To 1 Step -1
        If wsSource.Cells(i, 13).Value = "Test" Then
            ' 获取目标表最后一行的下一行
            lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row + 1
            ' 将源行的值直接赋值给目标行
            wsTarget.Rows(lastRowTarget).Value = wsSource.Rows(i).Value
            ' 删除源表该行
            wsSource.Rows(i).Delete
        End If
    Next i
End Sub

关键说明 #

• 反向循环：从最后一行往前遍历，避免删除行后后续行上移导致的索引错乱，确保每一行都能被正确检查。
• 避免依赖Selection：直接指定工作表比依赖Selection更可靠，防止用户误选范围引发错误。
• PasteSpecial的正确用法：必须先执行Copy，再对目标单元格单独调用PasteSpecial，不能链式调用。
• 直接赋值的优势：跳过剪贴板操作，运行速度更快，且不会触发剪贴板相关的提示或冲突。

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