Sub demo()
a = [g1:g9999]
b = [w1:w9999]
For i = 2 To UBound(a)
If InStr("鑫浩宇|奥德普|西泰|欧达", a(i,1)) Then
b(i,1) = replace(b(i,1),"毅昌实排","和昌订单")
b(i,1) = replace(b(i,1),"毅昌预排","和昌订单")
End If
Next
[w1].resize(ubound(b)) = b
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 7 then exit sub
If InStr("鑫浩宇|奥德普|西泰|欧达", Target) Then
Target.offset(,16).replace "毅昌实排","和昌订单"
Target.offset(,16).replace "毅昌预排","和昌订单"
End If
Sub demo()
a = Range([g1], [g1].End(4))
b = Range([w1], [w1].End(4))
For i = 2 To UBound(a)
If InStr("鑫浩宇|奥德普|西泰|欧达", a(i,1)) Then
b(i,1) = replace(b(i,1),"毅昌实排","和昌订单")
b(i,1) = replace(b(i,1),"毅昌预排","和昌订单")
End If
Next
[w1].resize(ubound(b)) = b
End Sub
Sub demo()
a = [g1:g9999]
b = [w1:w9999]
For i = 2 To UBound(a)
If InStr("鑫浩宇|奥德普|西泰|欧达", a(i,1)) Then
b(i,1) = replace(b(i,1),"毅昌实排","和昌订单")
b(i,1) = replace(b(i,1),"毅昌预排","和昌订单")
End If
Next
[w1].resize(ubound(b)) = b
End Sub