函数做不到,VBA还是昨天流光老师的那一段 复制下面的代码,打开EXCEL,按ALT+F11,插入-模块,在窗体里粘贴,按F5运行,查看结果。 Sub test() Dim rng As Range, reg As Object, mt As Object, item, index% Set reg = CreateObject("vbscript.regexp") With reg .Global = True .Pattern = "[::]" For Each rng In ActiveSheet.UsedRange Set mt = .Execute(rng.Value) For Each item In mt index = item.firstindex + 1 rng.Characters(index, 1).Font.Bold = True Next item Next rng End With End Sub