Function ПОЦВЕТУ_2(rng1 As Range, col As Range, k As Integer, n&)
    Dim cl As Range
    For Each cl In rng1.Cells
        If cl.Font.Color = col.Font.Color Then
            If cl.Next.Value = n Then
                i = i + 1
                If i = k Then
                    ПОЦВЕТУ_2 = cl.Value
                    Exit Function
                End If
            End If
        End If
    Next
End Function