excel - 如何查找单元格的一部分并将其替换为格式化文本

Question

在 Excel 2007 电子表格中，我想要查找替换并突出显示单元格中的部分文本。不过，使用查找替换会重新格式化整个单元格。

例如，如果单元格包含:

Pellentesque vel massa sit amet magna eleifend placerat. Pellentesque dictum, nibh vitae tincidunt placerat, elit libero tristique tellus, vel imperdiet nulla tortor id diam. Mauris porta blandit vestibulum.

我想找到“Pellentesque”并将其替换为Pellentesque。

这可以在没有 VBE 或公式的情况下完成吗？

Answer 1

也许这适合(请确保在运行之前选择的单元格数量不超过所需的数量，否则可能需要一段时间):

Sub FormatSelection()

Dim cl As Range
Dim SearchText As String
Dim StartPos As Integer
Dim EndPos As Integer
Dim TestPos As Integer
Dim TotalLen As Integer

On Error Resume Next
Application.DisplayAlerts = False
SearchText = Application.InputBox _
(Prompt:="Enter string.", Title:="Which string to format?", Type:=2)
On Error GoTo 0
Application.DisplayAlerts = True
If SearchText = "" Then
Exit Sub
Else
For Each cl In Selection
  TotalLen = Len(SearchText)
  StartPos = InStr(cl, SearchText)
  TestPos = 0
  Do While StartPos > TestPos
    With cl.Characters(StartPos, TotalLen).Font
      .FontStyle = "Bold"
      .ColorIndex = 3
    End With
    EndPos = StartPos + TotalLen
    TestPos = TestPos + EndPos
    StartPos = InStr(TestPos, cl, SearchText, vbTextCompare)
  Loop
Next cl
End If
End Sub

应该鼓励并涂上红色。如果重新运行宏，更改不会被覆盖。如果不改变颜色，注释掉.ColorIndex = 3。

(基于 @Skip Intro 指向 SO15438731 问题的指针并进行了修改，以及 SO10455366 答案中的一些代码。)