如何在一系列单元格中加粗所有特定单词？

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

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！