|
发表于 2012-9-21 22:06
|
显示全部楼层
本楼为最佳答案
- Sub test()
- Dim i As Long, j As Long, k As Long, t As Single
- t = Timer
- For i = 1 To Range("a65536").End(xlUp).Row
- For j = 1 To Len(Cells(i, 1))
- If Range("a" & i).Characters(j, 1).Font.ColorIndex = 3 Then
- k = k + 1
- End If
- Next
- Next
- MsgBox "红字数量:" & k & "个" & vbCrLf & "查询共耗时:" & Timer - t & "秒"
- End Sub
复制代码 |
|