VBA迁移符合条件的合并行时报错1004，寻求解决方案

问题根源 #

当操作合并单元格时，VBA不允许对合并区域的单个单元格执行复制、删除等操作，必须针对整个合并区域进行操作，否则会抛出"Run-Time Error '1004'"。

修正后的代码示例 #

以下是适配合并行迁移的完整代码，假设触发逻辑为选中数据行时迁移到目标工作表：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim lastRow As Long
    
    ' 仅处理单个单元格选中（含合并区域内的单元格）且非表头行的情况
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Row <= 1 Then Exit Sub
    
    ' 获取选中单元格所在的完整合并行区域
    Set sourceRange = Target.MergeArea.EntireRow
    
    ' 这里替换成你的迁移条件，比如判断某列值是否符合要求
    If sourceRange.Cells(1, 2).Value = "待迁移" Then
        ' 指定目标工作表
        Set targetSheet = ThisWorkbook.Worksheets("对应工作表名称")
        
        ' 定位目标工作表的最后空白行
        lastRow = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row + 1
        
        ' 复制完整合并行到目标位置
        sourceRange.Copy targetSheet.Cells(lastRow, 1)
        
        ' 删除原合并行区域
        sourceRange.Delete Shift:=xlUp
    End If
End Sub

关键修改说明 #

• 获取完整合并区域：用Target.MergeArea.EntireRow替代单个行号，确保操作覆盖整个合并行，避免触发合并单元格操作限制
• 统一操作对象：复制、删除动作都针对sourceRange执行，保证操作的是合并单元格的完整范围
• 增加前置判断：过滤多单元格选中和表头行，减少不必要的错误触发

额外优化建议 #

• 如果迁移后不需要保留合并格式，可在复制后添加以下代码取消合并：

  targetSheet.Cells(lastRow, 1).Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).UnMerge
  

• 若合并单元格仅跨列不跨行，MergeArea.EntireRow仍能正常获取整行，无需额外调整

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