[已解决]怎么根据名称变换另一个名称

透明世界1987

大神帮忙看下当G列名字有鑫浩宇 或者奥德普 或者西泰或者欧达时候
W列毅昌实排或者毅昌预排  则 自动变为 和昌订单 否则默认不变

最佳答案

月排行榜 / 总排行榜

cutecpu

2023-2-4 16:22

透明世界1987 发表于 2023-2-4 16:14
感谢大神，为什么他只运行前面12行数据会根据代码运算出结果，13行后就不运算了

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

跳转到最佳答案楼层

cutecpu

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

End Sub

透明世界1987

cutecpu 发表于 2023-2-4 14:40
Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Column  7 then exit sub

感谢大神，不过不对哈  您这个是手工填写G列名字，这一页的所有数据是自动处理自动填写进去的，我需要一段插入进去

cutecpu

透明世界1987 发表于 2023-2-4 15:27
感谢大神，不过不对哈  您这个是手工填写G列名字，这一页的所有数据是自动处理自动填写进去的，我需要一 ...

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

透明世界1987

cutecpu 发表于 2023-2-4 15:38
Sub demo()
   a = Range([g1], [g1].End(4))
   b = Range([w1], [w1].End(4))

感谢大神，为什么他只运行前面12行数据会根据代码运算出结果，13行后就不运算了

cutecpu

透明世界1987 发表于 2023-2-4 16:14
感谢大神，为什么他只运行前面12行数据会根据代码运算出结果，13行后就不运算了

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