<praticamente da tutta questa colonna dovrei estrarre e inserire in un altro
campo la riga con la stringa più lunga, che in questo caso è alla 4° riga ma
potrebbe essere in qualsiasi...
<Non riesco a capire se si può fare e come visto che il controllo lo devo
fare su tutta la colonna....
Private Sub maxInCol()
Dim i As Long
Dim imax As Long
Dim max As Long
For i = 1 To Foglio5.Cells(Foglio5.Rows.Count, "A").End(xlUp).Row
If Len(Cells(i, 1).Value) > max Then
max = Len(Cells(i, 1).Value)
imax = i
End If
Next
MsgBox ("La stringa più lunga ha " & max & " caratteri, e si trova nella
cella A" & imax & " .Tale stringa verrà copiata nella cella C8")
Foglio5.Cells(8, 3).Value = Foglio5.Cells(imax, 1).Value
End Sub