Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Estrarre la stringa più lunga da una colonna

127 views
Skip to first unread message

Catswalk

unread,
Oct 20, 2015, 8:09:39 AM10/20/15
to
Ciao,
una cortesia, ho un foglio di excel che viene popolato da un db esterno, in una colonna ho una serie di righe con dati tipo questo:

1271251
1271251
1271251, 1271252
1271251, 1271252, 1271253

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....

paoloard

unread,
Oct 20, 2015, 11:16:18 AM10/20/15
to


"Catswalk" ha scritto nel messaggio
news:056c4978-c981-486f...@googlegroups.com...
Se i tuoi dati sono in colonna A questa è la formula:
=INDICE(A1:A1000;CONFRONTA(MAX(LUNGHEZZA(A1:A1000));LUNGHEZZA(A1:A1000);0))
formula matriciale da confermare con Ctrl+Maiusc+Invio

--
Ciao
paoloard
http://www.riolab.org/

Vittorio

unread,
Oct 20, 2015, 4:17:03 PM10/20/15
to

<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

0 new messages