MACRO Trova massima lunghezza di caratteri

[g.campatelli]

Buongiorno ragazzi,

Ho bisogno di una macro per effettuare la seguente operazione:

In molte celle di un foglio Excel ho un numero variabile di caratteri.

Io vorrei in ogni riga del foglio lasciare solo la casella con il MAX numero di caratteri presente in quella riga.

es:
sono in questa situazione:

a1=abc a2=abcde a3=abcd
b1=nma b2=nmka b3=akkklh

Devo arrivare in questa situazione

a1=abcde
b1=akkkln

Qualcuno mi può aiutare?

Vi ringrazio anticipatamente per il supporto che sarete in grado di darmi

vi porgo cordiali saluti e vi auguro buone feste

Giordano

[Anthony47]

Questa macro partendo dal foglio contenente i dati crea un nuovo foglio in cui la colonna A sara' popolata con quanto richiesto:

Codice: Seleziona tutto

Sub gcmacro()
With ActiveSheet
    Worksheets.Add.Name = .Name & "_2"
    For I = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
        maxlj = 0
        For J = 1 To .Cells(I, Columns.Count).End(xlToLeft).Column
            If Len(.Cells(I, J)) > maxlj Then maxlj = Len(.Cells(I, J)): maxj = J
        Next J
        If maxlj > 0 Then Cells(I, 1) = .Cells(I, maxj)
    Next I
End With
End Sub


Il nuovo foglio viene nominato usando il nome del foglio corrente e l'appendice "_2"; questo comporta che eseguendo piu' volte la macro sullo stesso foglio verra' generato un errore sulla riga Worksheets.Add.Name = .Name & "_2"
Non conoscendo il tuo modo di operare non sono in grado di modificare la macro; diciamo che se vuoi modificare direttamente il foglio corrente (cosa che io Sconsiglio, perche' si perde la tracciatura di quanto eseguito), basta eliminare la riga Worksheets.Add

Ciao

[g.campatelli]

Grazie Mille funziona benissimo!!!