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

实际上，在Excel中进行此类更改非常容易，并且实际上与在Word中进行更改的方式相同。请按照下列步骤操作：

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

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

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

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

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

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

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

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

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

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

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

如果您只想影响单元格中的单词，那么这些步骤将无效。相反，您将需要使用宏进行粗体显示。

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

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

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培训的来源。

本技巧（12105）适用于Microsoft Excel 2007、2010、2013和2016。您可以在此处为Excel的较早菜单界面找到此技巧的版本：`link：/ excel-Making_All_Occurrences_Bold [Making All Occurrences Bold]。