计算单元格中突出显示的特定文本的行

Question

如何在excel中突出显示选定的文本我遵循了Jack BeNimble的最后一个代码？是否可以计算除此代码之外突出显示的行数？

Answer 1

使用链接中的代码：

Sub Colors()


Dim searchString As String
Dim targetString As String
Dim startPos As Integer
Dim rowcount as long
rowcount = 0
searchString = "abc"
targetString = Cells(2, 1).Value
startPos = InStr(targetString, searchString)

If startPos > 0 Then

    Cells(2, 1).Characters(startPos, Len(searchString)).Font.Color = vbRed
    rowcount = rowcount+1
End If

msgbox "The text was highlighted in " & rowcount & " row(s)!", vbokonly,"Row Count"
End Sub

以上假设您只是在每行只做一个高亮显示，情况似乎是这样的...

或者，如果您不希望对同一行进行两次计数，则可以构建一个行号数组，并检查以确保突出显示的行号不在先前突出显示的行列表中。 这将需要额外的循环，并且会降低性能，尤其是在较大的文件上。