一列经理总裁董长替换成高管VBA

nnsea

Sub test2()
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .ignorecase = True
    .Pattern = "经理|总裁|董事长"
    For Each Rng In [a2:a9]
        n = n + 1
        Cells(n + 1, "b") = .Replace(Rng, "高管")
    Next
End With
End Sub