
Sub grandezza_max()
Dim intervallo As Range
Dim M, grandezza
Set Intervallo = Range(Cells(2, 2), Cells(2, 2).End(xlDown))
M = WorksheetFunction.max(Intervallo)
For Each cl In Intervallo
If cl = M Then
grandezza = cl.Offset(0, -1)
MsgBox "il valore max è " & M & _
" riferito all grandezza " & grandezza
End If
Next
End Sub
|
=INDICE(A2:B100;CONFRONTA(GRANDE(B2:B100;1);B2:B100;0);1) |
