Localizando Valores Clusterizados / Consecutivos no Excel

Question

Estou tentando encontrar valores em uma planilha do Excel onde números maiores que 0 serão destacados. No entanto, aqueles destacados devem ser agrupados, números consecutivos que devem ser (pelo menos) três seguidos.

Por exemplo:

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

Os números em Negrito devem ter suas linhas inteiras destacadas / coloridas no Excel.

Existe um método simples para fazer isso? De preferência sem VBA.

EXTRA: Encontre números que quase tenham a regra de 3 clusters. Por exemplo:

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

Isso pressupõe que seus valores estejam em uma única coluna, coluna A :

Queremoslinhas11,12,13hi-lighted.

Comoexecutarestamacrocurta:

SubKolorRows()DimNAsLong,r1AsRange,r2AsRangeDimiAsLong,KAsLong,vAsLong,rAsRangeN=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

produzirá:

Asmacrossãomuitofáceisdeinstalareusar:

1. ALT-F11exibeajaneladoVBE
2. ALT-IALT-Mabreumnovomódulo
3. coleomaterialefecheajaneladoVBE

Sevocêsalvarapastadetrabalho,amacroserásalvacomela.SevocêestiverusandoumaversãodoExcelposteriora2003,deverásalvaroarquivocomo.xlsmemvezde.xlsx

Pararemoveramacro:

1. abrirajaneladoVBEcomoacima
2. limpeocódigo
3. fecheajaneladoVBE

ParausaramacrodoExcel:

1. ALT-F8
2. Selecioneamacro
3. ToqueemEXECUTAR

Parasabermaissobremacrosemgeral,consulte:

link

e

link

As macros devem estar ativadas para que isso funcione!