Excel 如何查找字体并替换为突出显示

我有一个关于Application.Findformat.font的问题，我正在尝试查找fontWinding2并突出显示黄色。我能够把一些东西放在一起查找和删除绕组。下一步是突出显示存在绕组的位置。非常感谢你的帮助

Cells.Select
    With Application.FindFormat.Font
        .Name = "Wingdings 2"
        .Subscript = False
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
       Selection.Replace What:="P", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=False
End Sub

---

试试这个，你可以通过在excel中记录宏来实现这一点。

Sivaprasath V使用你上面给我的代码，我可以突出显示绕组，但代码不会替换它们？无论如何，非常感谢您的帮助！您必须使用.Font对象来替换字体。内部对象仅更改内部格式。您可以使用带有.Name属性的.Font对象来更改字体。我的VBA知识非常有限。我会尝试研究，看看我能想出什么。上面的代码很棒，现在就足够了。我的希望是有能力更换绕组和突出显示。我们将复选标记用于编辑检查等目的。再次感谢。我已经编辑了我的答案。我正在将字体从2改为Arial，并将突出显示改为黄色。。你可以从开发者标签中录制宏并获取代码。我会尝试一下。谢谢你的帮助和支持！

   With Application.FindFormat.Font
        .Name = "Wingdings 2"
        .Subscript = False
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With application.replaceformat.font
        .Name="Arial"
     End With
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True