Excel A cada 10 linhas de uma coluna, armazenar em outra coluna o maior valor contido.

[biancaparullam]

Bom dia! Estou precisando de uma macro que calcule qual o maior número existente a cada 10 linhas de uma coluna, e salve em outra coluna. Não estou conseguindo desenvolver.

Muito Obrigada!

 

exemplo.csv

[R0DR1G0_CWB]

Bom dia,

 

Post um modelo de sua planilha que assim o pessoal do fórum irá te ajudar.

 

[]'s

[biancaparullam]

Certo rodrigo! já postei um exemplo de planilha! Obrigada!

[R0DR1G0_CWB]

Sua macro fica dessa forma.

 

exemplo.zip

Sub Contar()
    Dim UltimaLinha  As Long
    Dim max, k, i, j As Double
    UltimaLinha = Sheets("exemplo").Range("A" & Rows.Count).End(xlUp).Row
    k = 1
    j = 10
    For i = 1 To UltimaLinha
        max = WorksheetFunction.max(Sheets("exemplo").Range("A" & k & ":" & "A" & j))
        Sheets("exemplo").Range("B" & j).Value = max
        j = j + 10
        k = k + 10
        If Sheets("exemplo").Range("A" & i).Value = "" Or _
        IsNull(Sheets("exemplo").Range("A" & i).Value) Then
            Sheets("exemplo").Range("B" & j).Value = max
            Exit For
        End If
    Next i
    MsgBox "Concluído!"
End Sub

 

[biancaparullam]

Me ajudou muito! Problema resolvido! Muito obrigada!