samwang

¦^´_ 1# regedit77

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, i&, j%, ct%
With Sheets(1)
    Arr = .UsedRange
    For i = 1 To UBound(Arr)
        ct = 0
        For j = 1 To UBound(Arr, 2)
            If Arr(i, j) = "" Then GoTo 95
            If UCase(Arr(i, j)) = "A" Then ct = ct + 1 Else ct = 0
            If ct = 7 Then .Cells(i, j).Font.ColorIndex = 3: ct = 0
        Next
95  Next
End With
End Sub