convertire contenuto cella in righe

[pyverde]

Salve, per la mia attività avrei bisogno della risoluzione di questo problema.
Ringrazio tutti del vostro aiuto.

il foglio si presenta cosi (2righe 2 colonne):

codice1 c1,c2,c3,c4
codice2 c5,c11,c18,c100

Ora mi serve raggiungere questo risultato:
codice1 c1
codice1 c2
codice1 c3
codice1 c4
codice2 c5
codice2 c11
codice2 c18
codice2 c100


Ho preferito l'esempio senza inutili giri di parole.
Attendo una vostra risoluzione
grazie

[nicola75ss]

Option Explicit

Sub trasponi()
Dim i As Integer
Dim j As Integer
Dim valori() As String
Dim valore As Variant
j = 1
For i = 1 To 2
valori = Split(Range("b" & i), ",")
For Each valore In valori
    Sheets(2).Range("a" & j) = Sheets(1).Range("a" & i)
    Sheets(2).Range("b" & j) = valore
    j = j + 1
Next valore
Next i
End Sub

[pyverde]

Ti ringrazio tantissimo per la prontezza e soprattutto per l'efficienza del codice di programma.
Mi hai risolto un grosso problema facendomi risparmiare ogni volta almeno un paio d'ore


Grazie Grazie Grazie