如何find字体，并用高亮replace

我有一个关于Application.Findformat.font的问题我想find字体Winding2并突出显示黄色。 我能够把东西放在一起find和删除绕组。 下一步是要突出显示绕组存在的位置。 非常感谢您的帮助！

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中loggingmacros来获得这个。