Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel           Dicas  

Encontrando-se o valor Máximo
Pergunta:
Tenho duas colunas A e B de valores numéricos. Quero escrever um programa que me calcule na coluna C adjacente(que está vazia) e nas linhas correspondentes aos valores dados, o valor do Máximo.

Exemplificando :
Se meus únicos valores nas colunas A e B forem 12 e 45 respectivamente, quero escrever um programa que coloque o valor 45 na coluna C.

Resposta:
Escrevendo um programa que identifique em c1, o máximo entre dois valores a1 e b1.

Sub ExibeValorMaximo( )
Cells(1, 3).Formula = _
Application.Max(Range(Cells(1, 1), Cells(1, 2)))
End Sub

Se você tem vários valores nas colunas A e B, o programa abaixo preencherá a coluna C com os valores máximos encontrados.

Sub ExibeValorMaximo( )
Cells(1, 1).CurrentRegion.Select
For linha = 1 To Selection.Rows.Count
Cells(linha, 3).Formula = _
Application.Max(Range(Cells(linha, 1), Cells(linha, 2)))
Next
End Sub