Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, verifica todos os valores digitados,
localiza a última célula e insere o valor Máximo, desloca mais uma linha e insere
o valor mínimo da coluna(A)
Sub Valor_Maximo_Minimo()
Dim i As Single
i = 1
Do While Cells(i, 1) <> "" 'Retorna a posição da linha da primeira célula
i = i + 1 ' na coluna "A" vazia
Loop
Cells(i, 1).Select
ActiveCell.FormulaR1C1 = "=MAX(R[-" & i - 1 & "]C:R[-1]C)" 'Inseri a fórmula
Cells(i, 1).Select
Cells(i + 1, 1).Select
ActiveCell.FormulaR1C1 = "=MIN(R[-" & i - 1 & "]C:R[-1]C)"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo a macro acima:
Excel planilha vba formulas loop ultima celula retorna valor maximo minimo (18.32 kB)
