如果单元格值在列表中，则替换为第三个值

尝试使用类似以下内容

Sub findandreplace()
    Dim WIP As Range
    Dim SrchRng As Range, cel As Range
    Set SrchRng = Selection
    Set WIP = Workbooks("Long life check").Sheets("WIP").Columns("C:D")

    With ActiveSheet.Columns("A")
        For Each cel In SrchRng
            .Cells.Replace cel, cel.Offset(0, 1)
        Next cel
    End With
End Sub

选择您的“查找”范围并运行