Funzioni avanzate trasponi su Excel

[tabaho]

Ciao a tutti, sono nuovo del forum. Ho provato a cercare la soluzione al mio "problema", ma non sono riuscito a trovare niente. Praticamente devo trasporre solo una parte del foglio excel e vorrei evitare di farlo manualmente per tutto il documento. Vi allego la foto per spiegare in modo più chiaro. Le prime 5 righe sotto la colonna le ho create io a mano trasponendo in colonne le righe sotto la voce "Email". C'è un modo per quelle sotto per evitare di fare la procedura in modo così lento? Grazie mille

[peppo55]

Ciao tabaho,

perchè vuoi modificare un elenco ben costruito, in qualcosa poco gestibile ?
A mio parere mantieni l'elenco e poi utilizza la tabella pivot.

[tabaho]

Grazie per il consiglio, ma per quanto sia ben fatto questo tipo, in questo formato non posso salvarlo sul cellulare portandolo nella rubrica di Google contacts. Qualcuno sa aiutarmi?

[ricky53]

Ciao,
ma i dati che vuoi trasporre quali sono?

Io ho capito che:
A) le righe 1-6 sono il risultato della trasposizione manuale che hai fatto tu

B) dalla riga 7 in avanti hai i dati che VORRESTI TRASPORRE in modo AUTOMATICO


E' così?

[tabaho]

Esattamente! :-)

[Anthony47]

Ti potra' probabilmente aiutare una macro come questa:

Codice: Seleziona tutto

Sub taba()
'
For i = 2 To Cells(Rows.Count, "D").End(xlUp).Row
    If Cells(i, 1) <> "" Then
        ilast = i: mybl = 0
    Else
        mybl = mybl + 1
        If Cells(i, 4) <> "" Then
            Cells(ilast, 4 + mybl) = Cells(i, 4)
            Cells(i, 4).ClearContents
        End If
    End If
Next i
End Sub


Ti dovrebbe ordinare in colonna tutti i dati lasciandoti righe vuote in mezzo, che eliminerai ordinando (col comando Ordina) la tabella dei risultati.

Ciao

[tabaho]

Grazie mille Antonio! Operazione perfettamente riuscita! ;-)