VBA代码执行报错：复制指定单元格并插入后删除原单元格时出现1004错误

错误原因分析 #

你的代码出现运行时错误'1004'，主要是以下几个问题导致：

• 重复用Range()包裹已定义的Range对象，造成对象引用混乱
• 粘贴目标未绑定到指定工作表，默认使用活动表，与With块指定的Sheet1不一致
• 插入单元格后，原删除单元格的位置可能因布局变化偏移，导致后续引用错误

修正后的代码 #

Sub Test()
    Dim rngDeleteCell As Range
    Dim rngInsertCell As Range
    Dim cellValue As Variant ' 提前保存原单元格的值
    
    On Error Resume Next
    Set rngDeleteCell = Application.InputBox( _
           "选择要删除的单元格", _
           Type:=8)
    If rngDeleteCell Is Nothing Then Exit Sub
    
    ' 保存原单元格值，避免插入操作导致位置偏移
    cellValue = rngDeleteCell.Value
    
    Set rngInsertCell = Application.InputBox( _
           "选择要插入新单元格的位置（新单元格将插入在此单元格下方）", _
           Type:=8)
    If rngInsertCell Is Nothing Then Exit Sub
    On Error GoTo 0
    
    With ThisWorkbook.Sheets("Sheet1")
        ' 校验所选单元格是否在Sheet1内
        If rngDeleteCell.Parent.Name <> "Sheet1" Or rngInsertCell.Parent.Name <> "Sheet1" Then
            MsgBox "请选择Sheet1中的单元格"
            Exit Sub
        End If
        
        ' 在指定位置插入新单元格，下方单元格下移
        rngInsertCell.Insert xlShiftDown
        ' 赋值给新插入的单元格（高效替代复制粘贴）
        rngInsertCell.Offset(-1).Value = cellValue
        ' 删除原单元格，上方单元格上移
        rngDeleteCell.Delete Shift:=xlShiftUp
    End With
End Sub

关键优化点 #

• 提前保存单元格值：插入操作会改变工作表布局，若原删除单元格与插入位置在同一列，原单元格位置会偏移，提前保存值可避免引用错误
• 简化对象引用：直接使用已定义的Range对象，去掉多余的Range()包裹
• 增加工作表校验：确保用户选择的单元格都在目标工作表内，避免跨表操作错误
• 高效赋值替代复制：用Value赋值比Copy方法更高效，若需要保留格式，可替换为rngDeleteCell.Copy + rngInsertCell.Offset(-1).PasteSpecial xlPasteAll

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