Su Excelling si è spesso dibattuto sull'uso di CERCA.VERT e le sue valide alternative. Questo mini progetto crea una funzione chiamata TrovaC composta da 3 argomenti: valore da cercare (valore testuale o numerico), dove trovarlo (range), valore da restituire (range).

Function TrovaC(ByVal daCercare, dove As Range, daRestituire As Range) As Variant
     With Application
          If .CountIf(dove, daCercare) Then
               TrovaC = daRestituire(.Match(daCercare, dove, 0))
          End If
     End With
End Function

La funzione è stata proposta nel forum da cucchiaino