兄弟，你遇到的这个报错大概率是因为Paste方法的使用逻辑有问题——它需要作用在Range对象上，而且复制粘贴操作很容易受剪贴板状态、单元格区域匹配度甚至Excel界面激活状态的影响，稍不注意就会触发中断。更稳妥高效的方式是直接通过单元格赋值替代复制粘贴，既能避开报错，运行速度也更快。

先明确你的需求核心： #

• 遍历L列（第12列）所有数据单元格，查找包含ERROR的内容
• 找到后，将该单元格（L列）和右侧M列的内容转移到AX列（第50列）和AY列（第51列）
• 清空原L、M列的内容

修改后的VBA代码（替换原复制粘贴逻辑） #

Sub MoveErrorCells()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要操作的工作表，替换成你的实际工作表名称，比如"数据汇总"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取L列最后一行有数据的行号，避免遍历空行浪费资源
    lastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row
    
    ' 遍历L列的每一行数据
    For i = 1 To lastRow
        ' 判断当前L列单元格是否包含"ERROR"，vbTextCompare支持不区分大小写匹配
        If InStr(1, ws.Cells(i, "L").Value, "ERROR", vbTextCompare) > 0 Then
            ' 直接赋值替代复制粘贴，完全避开剪贴板相关问题
            ws.Cells(i, 50).Value = ws.Cells(i, "L").Value ' L列内容→AX列
            ws.Cells(i, 51).Value = ws.Cells(i, "M").Value ' M列内容→AY列
            
            ' 清空原L、M列的文本内容
            ws.Cells(i, "L").ClearContents
            ws.Cells(i, "M").ClearContents
        End If
    Next i
End Sub

关键改进点说明： #

1. 摒弃Copy/Paste：通过.Value直接赋值跳过了剪贴板环节，彻底避免粘贴时的各种报错，逻辑更稳定。
2. 明确操作工作表：指定具体工作表，防止因当前激活工作表不对导致的隐性错误。
3. 缩小遍历范围：用lastRow只遍历有数据的行，减少无效循环。
4. 灵活匹配字符串：vbTextCompare参数支持不区分大小写匹配，如果你需要严格区分大小写，删掉该参数即可。

如果一定要保留复制粘贴的方式（不推荐），也需要修正语法确保复制区域和粘贴操作的正确性：

' 复制当前行的L、M列区域
ws.Range(ws.Cells(i, "L"), ws.Cells(i, "M")).Copy
' 粘贴到AX列起始单元格，指定粘贴值避免格式干扰
ws.Cells(i, 50).PasteSpecial xlPasteValues
' 清空剪贴板状态，避免后续操作受影响
Application.CutCopyMode = False

但这种方式依然不如直接赋值可靠，所以优先推荐第一种方案。

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