通过

Application.ReplaceFormat 属性 (Excel)

  • 项目

设置替换条件以用于替换单元格格式。 然后，在对 Range 对象的 Replace 方法的后续调用中使用替换条件。

语法

表达式。ReplaceFormat

expression：表示 Application 对象的变量。

示例

以下示例设置搜索条件以查找包含 Arial、Regular、Size 10 字体的单元格，将其格式替换为 Arial、Bold、Size 8 字体，然后调用 Replace 方法，并将 SearchFormat 和 ReplaceFormat 的可选参数设置为 True 以实际进行更改。

Sub MakeBold() 
 
 ' Establish search criteria. 
 With Application.FindFormat.Font 
 .Name = "Arial" 
 .FontStyle = "Regular" 
 .Size = 10 
 End With 
 
 ' Establish replacement criteria. 
 With Application.ReplaceFormat.Font 
 .Name = "Arial" 
 .FontStyle = "Bold" 
 .Size = 8 
 End With 
 
 ' Notify user. 
 With Application.ReplaceFormat.Font 
 MsgBox .Name & "-" & .FontStyle & "-" & .Size & _ 
 " font is what the search criteria will replace cell formats with." 
 End With 
 
 ' Make the replacements on the worksheet. 
 Cells.Replace What:="", Replacement:="", _ 
 SearchFormat:=True, ReplaceFormat:=True 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。