excel - 使用Find方法格式化某个范围内的某些字符串

Question

我有一个范围，其中包含字符串“freq!”的多个实例随机散布各处。我想将这些字符串的字体更改为红色。我尝试使用 Find 方法，但没有成功:

[D1:H5000].Find(What:=”freq!”, LookIn:=xlValues).Font.Color = RGB(255,0,0)

我哪里出错了？

Answer 1

您的 .Find 不起作用的原因是它仅设计用于查找一个实例。要查找多个实例，您还需要在循环中使用 .FindNext。请参阅下面的示例:

请注意搜索字符串周围通配符的使用。

Sub ChangeFontColor()

Dim rng As Range
Dim rr As Range
Dim sAdd As String
Dim sStr As String

sStr = "*freq!*"

With Worksheets("YourSheetName").Range("D1:H5000")
    Set rng = .Find(sStr)
    If Not rng Is Nothing Then
        sAdd = rng.Address
        Do
            If rr Is Nothing Then
                Set rr = rng
            Else
                Set rr = Application.Union(rr, rng)
            End If
            Set rng = .FindNext(rng)
        Loop While Not rng Is Nothing And rng.Address <> sAdd
    End If
End With

If Not rr Is Nothing Then
    rr.Font.Color = RGB(255,0,0)
End If

End Sub

这个示例应该执行得很快，具体取决于实例的数量。 See this有关 .FindNext 的更多信息。