prova questa funzione:
codice:
Function ControllaLunghezza(Colonna As Integer) As Long
Dim i As Long, nRiga As Long, ParolaLunga As String
ParolaLunga = ""
nRiga = 0
For i = 1 To 65536
If Len(Trim(Cells(i, Colonna).Value)) > 0 Then
If Len(Cells(i, Colonna).Value) > Len(ParolaLunga) Then
ParolaLunga = Cells(i, Colonna).Value
nRiga = i
End If
End If
Next
ControllaLunghezza = nRiga
End Function
devi passargli solo la colonna da controllare e ti restituisce il numero di riga col il valore più lungo...
se non trova nessun valore restituisce 0