Excel VBA数据迁移问题：保留Sheet1公式及仅迁移新数据的方案咨询

问题1：使用Cut方法迁移数据但保留Sheet1公式 #

Cut方法会将单元格的**全部内容（包括公式、格式、值）**剪切到目标位置，原单元格会变为空白，因此无法直接用Cut保留原单元格的公式。要实现迁移数据（值）同时保留Sheet1的公式，需替换Cut为「复制值到目标 + 清除原单元格值（保留公式）」的操作：

• 先将原行的值复制到目标工作表
• 清除原单元格的内容（仅清除值，不删除公式和格式）

问题2：用Copy替代Cut，避免重复迁移数据 #

可以通过标记已迁移的行实现：

• 利用原代码中设置的Interior.ColorIndex作为标记，已迁移的行背景色会被设为4/5/6，下次运行时直接跳过这些已标记的行
• 也可新增一列（比如第17列）记录迁移状态，通过判断该列标记决定是否处理该行

修改后的完整代码 #

Sub MigrateData()
    Dim wb As Workbook, ws As Worksheet, mycell As Range
    Dim n As Long, ci As Long
    Dim targetRow As Range
    
    Set wb = ThisWorkbook
    Application.ScreenUpdating = False ' 提升运行速度，避免屏幕闪烁

    For n = 3 To 916
        Set mycell = wb.Sheets("Sheet1").Cells(n, 1)
        ci = 0
        
        ' 跳过已迁移的行（通过背景色判断）
        If mycell.Interior.ColorIndex <> 4 And mycell.Interior.ColorIndex <> 5 And mycell.Interior.ColorIndex <> 6 Then
            If mycell.Value >= 24 Then
                ci = 4
                Set ws = Sheets("Sheet2")
            ElseIf mycell.Value >= 12 Then
                ci = 5
                Set ws = Sheets("Sheet3")
            ElseIf Len(mycell.Value) > 0 Then ' 跳过空白行
                ci = 6
                Set ws = Sheets("Sheet4")
            End If
            
            If ci > 0 Then
                mycell.Interior.ColorIndex = ci
                ' 仅复制值到目标行，保留原单元格公式
                Set targetRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(1, 16)
                targetRow.Value = mycell.Resize(1, 16).Value
                ' 清除原单元格内容（保留公式和格式）
                mycell.Resize(1, 16).ClearContents
            End If
        End If
    Next
    
    For n = 2 To 4
        wb.Sheets("Sheet" & n).Columns.AutoFit
    Next
    
    Application.ScreenUpdating = True
    MsgBox "Done"
End Sub

代码说明 #

1. 保留Sheet1公式：通过targetRow.Value = mycell.Resize(1,16).Value仅复制单元格的值到目标，再用ClearContents清除原单元格内容（不会删除公式，原单元格公式会保留，后续录入新数据时可自动计算）
2. 避免重复迁移：通过判断mycell.Interior.ColorIndex是否为已迁移的颜色（4/5/6），跳过已处理的行，确保仅迁移新数据
3. 新增Application.ScreenUpdating = False优化代码运行效率，减少屏幕闪烁

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