La mia interpretazione della domanda corrisponde alla seguente macro:
- Codice: Seleziona tutto
Sub bicio()
Dest = "K" '<<< La colonna dove creeremo il nuovo elenco
For I = 2 To Cells(Rows.Count, "A").End(xlUp).Row
J = 1
Do While Cells(I, J) <> ""
Cells(I, 1).Copy Destination:=Cells(Rows.Count, Dest).End(xlUp).Offset(1, 0)
If J = 1 Then J = 2
Cells(I, J).Range("A1:B1").Copy Destination:=Cells(Rows.Count, Dest).End(xlUp).Offset(0, 1)
J = J + 2
Loop
Next I
End Sub
Da excel. Alt-F11 per apriire l' editor delle macro; poi Menu /Inserisci /Modulo; copia il codice e incollalo nel frame di dx. Torna su excel, Alt-F8; scegli "bicio" dall' elenco delle macro che ti propone, premi Esegui.
Verra' creato un nuovo elenco "normalizzato, nella colonna specificata dall' istruzione marcata <<< (che quindi avrai adattato alla tua situazione).
E se non e' cosi' allora spiega nuovamente, magari partendo dalle domande di Ricky.
Ciao