Sempre rifacendomi all'esempio di ieri, con nomi nel range a1:a3 e valori b1:b3 prova questo codice che riporterà, a partire dalla cella d1 a scendere, tutti i nominativi aventi il massimo valore.
codice:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim maggiore, i As Long
maggiore = WorksheetFunction.Max(Range("b1:b3"))
i = 1
Range("d:d").ClearContents
For Each cella In Range("a1:a3")
If cella.Offset(0, 1) = maggiore Then
Range("d" & i).Value = cella.Value
i = i + 1
End If
Next cella
Application.EnableEvents = True
End Sub