Condividi:        

MACRO Trova massima lunghezza di caratteri

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

MACRO Trova massima lunghezza di caratteri

Postdi g.campatelli » 15/12/15 10:01

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
g.campatelli
Utente Junior
 
Post: 16
Iscritto il: 01/11/15 09:22

Sponsor
 

Re: MACRO Trova massima lunghezza di caratteri

Postdi Anthony47 » 15/12/15 23:53

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MACRO Trova massima lunghezza di caratteri

Postdi g.campatelli » 20/12/15 12:31

Grazie Mille funziona benissimo!!!
g.campatelli
Utente Junior
 
Post: 16
Iscritto il: 01/11/15 09:22


Torna a Applicazioni Office Windows


Topic correlati a "MACRO Trova massima lunghezza di caratteri":


Chi c’è in linea

Visitano il forum: Nessuno e 34 ospiti