如何在单元格区域中加粗所有特定单词？

在Excel中，查找和替换功能可以帮助我们找到任何特定文本，并对整个单元格进行加粗或其他格式设置。但是，您是否尝试过仅加粗单元格中的特定文本而不是整个单元格，如下截图所示：

使用VBA代码加粗单元格区域中的所有特定单词

使用VBA代码加粗单元格区域中的所有特定单词

以下VBA代码可能帮助您仅加粗单元格内容中的特定文本，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：加粗单元格区域中的特定文本

Sub FindAndBold()
'Updateby Extendoffice 20160711
    Dim xFind As String
    Dim xCell As Range
    Dim xTxtRg As Range
    Dim xCount As Long
    Dim xLen As Integer
    Dim xStart As Integer
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    Set xTxtRg = Application.Intersect(xRg.SpecialCells(xlCellTypeConstants, xlTextValues), xRg)
    If xTxtRg Is Nothing Then
        MsgBox "There are no cells with text"
        Exit Sub
    End If
    xFind = Trim(Application.InputBox("What do you want to BOLD?", "Kutools for Excel", , , , , , 2))
    If xFind = "" Then
        MsgBox "No text was listed", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xLen = Len(xFind)
    For Each xCell In xTxtRg
        xStart = InStr(xCell.Value, xFind)
        Do While xStart > 0
            xCell.Characters(xStart, xLen).Font.Bold = True
            xCount = xCount + 1
            xStart = InStr(xStart + xLen, xCell.Value, xFind)
        Loop
    Next
    If xCount > 0 Then
        MsgBox "number of " & CStr(xCount) & " text be bolded!", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Not find the specific text!", vbInformation, "Kutools for Excel"
    End If
End Sub

3. 然后按 F5 键运行此代码，会弹出一个提示框，提醒您选择要加粗的数据区域，请参见截图：

4. 然后单击“确定”，另一个对话框将弹出，提醒您输入只想在单元格中加粗的特定文本，请参见截图：

5. 输入文本后，请单击“ 确定”按钮，所有指定的文本都已在选定区域内加粗，请参见截图：