基于跨工作表ID匹配替换列值，保留Excel格式的高效方案

方法一：手动查找匹配+选择性粘贴（适合少量ID替换） #

• 先在Sheet2里整理出对应关系：把每个“Value to be replaced”行和它上方对应的ID配对，比如EDMU025对应C列100、D列200这类替换值，可在Sheet2空白区域临时做个映射表，避免反复找
• 回到Sheet1，可按ID列排序（可选，方便批量定位）
• 对每个需要替换的ID，找到Sheet1中对应的行，然后从Sheet2的“Value to be replaced”行复制C-F列的数值，右键选择选择性粘贴→只粘贴值，这样完全不会覆盖Sheet1原有的颜色、批注和字体样式

方法二：VBA宏脚本（适合400行大型表格，批量高效处理） #

这个方法能自动完成所有匹配替换，全程保留Sheet1格式，步骤如下：

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 插入新模块：右键点击左侧工作簿名称→插入→模块
3. 粘贴以下代码：

Sub ReplaceValuesWithFormatPreserved()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long
    Dim idToFind As String
    Dim replaceRange As Range
    
    ' 根据你的实际工作表名称修改
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历Sheet2提取替换规则并执行替换
    For i = 1 To lastRow2
        If ws2.Cells(i, "A").Value = "Value to be replaced" Then
            ' 取替换行上方对应的ID（示例中ID在替换行前3行，按实际结构调整数字）
            idToFind = ws2.Cells(i - 3, "A").Value
            ' 在Sheet1中定位匹配的ID行
            Set replaceRange = ws1.Columns("A:A").Find(What:=idToFind, LookIn:=xlValues, LookAt:=xlWhole)
            If Not replaceRange Is Nothing Then
                ' 仅修改C-F列的数值，不触动格式
                For j = 3 To 6 ' C列对应第3列，F列对应第6列
                    ws1.Cells(replaceRange.Row, j).Value = ws2.Cells(i, j).Value
                Next j
            End If
        End If
    Next i
    
    MsgBox "替换完成！"
End Sub

4. 调整代码细节：如果你的Sheet1/Sheet2名称不是默认的，修改代码里的工作表名；如果Sheet2中ID行和“Value to be replaced”行的间隔不是3行，调整i - 3里的数字
5. 运行宏：按F5执行，或者回到Excel界面，点击「开发工具」→「宏」→选择该宏运行

脚本说明 #

• 只修改单元格的Value属性，完全不碰格式相关设置（颜色、字体、批注全保留）
• 自动匹配所有ID，批量完成替换，比手动操作效率高很多

注意事项 #

• 执行VBA前建议备份文件，避免意外
• 如果Sheet2的布局有变动，记得同步调整代码里的行偏移量

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