工作表里面出现特定的英文可以VBA一键替换为指定的英文

merlin.chen · 发表于 2023-5-28 15:21

出货清单的H列Description如出现一些特定的英文，
需要替换为指定单词。出货清单为源数据，第二个工作表替换是替换的单词

gwjkkkkk · 发表于 2023-5-28 17:56

Option Explicit
Sub TEST2()
Dim ar, i&

Application.ScreenUpdating = False
With Sheets(2)
      ar = Range(.[A1], .Cells(Rows.Count, "B").End(xlUp))
End With
With Columns("H")
      For i = 1 To UBound(ar)
         If ar(i, 1) <> "" Then
            .Replace What:=ar(i, 1), Replacement:=ar(i, 2), LookAt:=xlPart
         End If
      Next i
End With

Application.ScreenUpdating = True
Beep
End Sub

gwjkkkkk · 发表于 2023-5-28 17:59

请参考附件。。。

zxsea_7426 · 发表于 2023-5-28 18:42

这不就是替换吗?

		自动登录	找回密码
密码			免费注册

[求助] 工作表里面出现特定的英文可以VBA一键替换为指定的英文