Tom正确地指出，在Word中，您可以使用“查找和替换”使所有出现的单词加粗。 （搜索单词，将其替换为启用了粗体格式的相同单词。）他想知道如何在Excel中执行相同的操作。

答案部分取决于您使用的Excel版本。如果您使用的是Excel 2002或更高版本的Excel，则答案很简单-这样做的方式几乎与在Word中相同。请按照下列步骤操作：

。按Ctrl + H以显示“查找和替换”对话框的“替换”选项卡。

。单击选项按钮以展开对话框。 （请参见图1。）

。在“查找内容”框中，输入要加粗的单词。

。在“替换为”框中输入相同的词。

。单击“替换为”框右侧的“格式”按钮。 Excel将显示“替换格式”对话框。

。单击字体选项卡。 （请参见图2。）

。在字体样式列表，选择粗体。

。单击“确定”关闭“替换字体”对话框。

。单击全部替换以执行替换。

尽管这看起来很容易，但是您需要记住这些步骤改变了整个单元格的格式，而不仅仅是单元格中的单词。

因此，如果您要搜索和替换单词“ brown”，那么任何包含单词“ brown”的单元格都将变为粗体-整个单元格，而不仅仅是单词。

如果您使用的是旧版Excel（Excel 97或Excel 2000），或者只想影响单元格中的单词，则这些步骤将不起作用。相反，您将需要使用宏进行粗体显示。

基本上，您将需要一个宏，该宏可浏览工作表并确定可以更改的内容。 （不能将公式或数值中的单个单词或数字设置为粗体；只能更改文本常量的单词级格式。）

宏找到可以处理的单元格后，它需要在单元格中搜索所需的单词，然后将该文本设为粗体。以下宏实现了这一策略：

Sub FindAndBold()

Dim sFind As String     Dim rCell As Range     Dim rng As Range     Dim lCount As Long     Dim iLen As Integer     Dim iFind As Integer     Dim iStart As Integer

On Error Resume Next     Set rng = ActiveSheet.UsedRange. _       SpecialCells(xlCellTypeConstants, xlTextValues)

On Error GoTo ErrHandler     If rng Is Nothing Then         MsgBox "There are no cells with text"

GoTo ExitHandler     End If

sFind = InputBox( _       Prompt:="What do you want to BOLD?", _       Title:="Text to Bold")

If sFind = "" Then         MsgBox "No text was listed"

GoTo ExitHandler     End If

iLen = Len(sFind)

lCount = 0

For Each rCell In rng         With rCell             iFind = InStr(.Value, sFind)

Do While iFind > 0                 .Characters(iFind, iLen).Font.Bold = True                 lCount = lCount + 1                 iStart = iFind + iLen                 iFind = InStr(iStart, .Value, sFind)

Loop         End With     Next

If lCount = 0 Then         MsgBox "There were no occurrences of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "to bold."

ElseIf lCount = 1 Then         MsgBox "One occurrence of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "was made bold."

Else         MsgBox lCount & " occurrences of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "were made bold."

End If

ExitHandler:

Set rCell = Nothing     Set rng = Nothing     Exit Sub

ErrHandler:

MsgBox Err.Description     Resume ExitHandler End Sub

宏首先将搜索范围设置为包含文本常量的那些单元格。然后，它提示用户输入需要更改的单词。

输入后，宏便开始浏览范围内的所有单元格。检查每个单元以查看其是否包含目标词。如果是这样，则将设置这些字符的.Bold属性，然后宏继续搜索。

该宏还跟踪进行了多少更改，并在其工作结束时显示总更改。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2414）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

使所有事件加粗。