Поиск кластерных / последовательных значений в Excel

Question

Я пытаюсь найти значения в электронной таблице Excel, где будут выделены цифры больше 0. Тем не менее, те, которые выделены, должны быть сгруппированы, последовательные номера, которые должны быть (по крайней мере) три подряд.

Например:

0
0
0
0
0
0
34
0
0
0
**156**
**190**
**2300**
**190**
**34**
0
0
0
0
0
0
0
0
0
0
17732
0
0
0
0
**2000**
**2900**
**1000**
0
0
0
0

Числа, выделенные жирным шрифтом, должны иметь целые строки, выделенные / окрашенные в Excel.

Есть ли простой способ сделать это? Желательно без VBA.

ДОПОЛНИТЕЛЬНО: Найти числа, которые почти имеют правило 3 кластеров. Например:

0
0
0
0
0
0
0
0
0
0
**156**
**0**
**190**
0
0
0
0
0
0
0
0
0
0
17732
0
0
0
0
**2000**
**0**
**3000**
**1000**
0
0
0
0

Answer 1

Это предполагает, что ваши значения находятся в одном столбце, столбец A:

Мы хотим строки 11,12,13 с подсветкой.

Запуск этого короткого макроса:

Sub KolorRows()
    Dim N As Long, r1 As Range, r2 As Range
    Dim i As Long, K As Long, v As Long, r As Range
    N = Cells(Rows.Count, "A").End(xlUp).Row
    Set r1 = Nothing
    Set r2 = Nothing
    K = 0

    For i = 1 To N
        Set r = Cells(i, "A")
        v = r.Value
        If v = 0 Then
            Set r1 = Nothing
            Set r2 = Nothing
            K = 0
        Else
            Select Case K
                Case 0
                    K = K + 1
                    Set r1 = r
                Case 1
                    K = K + 1
                    Set r2 = r
                Case 2
                    K = 0
                    Union(r1, r2, r).EntireRow.Interior.ColorIndex = 27
                    Set r1 = Nothing
                    Set r2 = Nothing
            End Select
        End If
    Next i
End Sub

Будет производить:

Макросы очень просты в установке и использовании:

1. ALT-F11 открывает окно VBE
2. ALT-I ALT-M открывает новый модуль
3. вставьте материал и закройте окно VBE

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

1. откройте окно VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы использовать макрос из Excel:

1. ALT-F8
2. Выберите макрос
3. Нажмите RUN

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Макросы должны быть включены, чтобы это работало!