seria algo assim:
Sub Verfica_e_Apaga_GT()
Dim Menor_valor
Menor_valor = WorksheetFunction.Min(Range("A1:A10"))
For Each cell In Range("A1:a10")
If Not cell.Value = Menor_valor Then cell.ClearContents
Next
End Sub
Lembrando que se tiver uma célula em branco, já era, rs (vc não falou nada sobe isso).
Porém, vc pode adaptar para ignorar células em branco.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 20/03/2014 3:16 pm