excel-找到CHAR（219）和CHAR（220），然后将其字体更改为Wingding 3

大家好，我是Excel macro的新手。

My question is how to create a macro to find CHAR(219) and CHAR(220) in the sheet, then change its font to Wingding 3.

我不需要改变字体颜色或大小等。。

非常感谢。

Sub SpecialChar()

Dim strPatt作为字符串Dim cel作为范围Dim regEx作为对象

strPatt=&quot；[ÜÛ]“是的”根据需要改变模式

设置regEx=CreateObject（“VBScript.RegExp”）

With regEx
    .Global = True
    .MultiLine = True
    .IgnoreCase = True
    .Pattern = strPatt
End With



For Each cel In Range("A:ZZ").End(xlUp).Row).Cells 'change column as needed
    If regEx.Test(cel.Text) Then
        cel.font.Name = "Wingding 3"
    End If
Next cel

端接头