excel - 更改为单元格中重复的粗体文本

Question

我正在尝试编写一些代码，这些代码将在 Excel 单元格中查找它是否包含我正在查找的单词并将其设置为粗体。到目前为止我已经编写了以下代码

With Worksheets("Label Print").Cells(i, J)
.Characters(Start:=InStr(.Value, “Name”), Length:=Len(“Name”)).Font.Bold = True
End With

问题是，如果“Name”在单元格中出现两次(或多次)，它将仅突出显示第一次出现的情况。

提前谢谢

Answer 1

这是一个函数，它接受要检查的单元格和要搜索的单词，并将该单词的所有情况加粗:

Public Sub BoldWord(rngCell As Range, sWord As String)

  Dim iPlace As Integer

  iPlace = InStr(1, rngCell.Value, sWord, vbTextCompare)
  Do While iPlace > 0
    rngCell.Characters(Start:=iPlace, Length:=Len(sWord)).Font.Bold = True
    iPlace = InStr(iPlace + 1, rngCell.Value, sWord, vbTextCompare)
  Loop

End Sub

注1:rngCell必须是单个单元格。

注 2:搜索不区分大小写...如有必要，请更改 vbTextCompare。