Sub df()
Dim arr, i&, ar$()
arr = Range("b1:c" & [a1].End(4).Row).Value
ReDim ar(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
If arr(i, 1) = "óD×Ö" And arr(i, 2) = "óD×Ö" Then
ar(i, 1) = "¼ì2é"
End If
Next i
Range("d:D").ClearContents
[d1].Resize(i - 1) = ar
End Sub
试试,看是这个意思不