如何查找字体并替换为高亮显示

Question

我有一个关于Application.Findformat.font的问题我试图找到字体 Winding2 并突出显示黄色。我能够把东西放在一起找到并删除绕组。下一步是突出存在绕组的任何地方。非常感谢您的帮助！

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

Answer 1

   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

试试这个你可以通过在你的Excel中录制宏来实现这一点。