Virgüllü verileri transpoze etmek istiyorum örnek dosyayı ekliyorum...

[prepositions]

Arkadaşlar aranıza yeni katıldım ve acil çözmem gereken bir konuda yardımınızı istemekteyim.
Uygun bir makro benim işimi çözecektir sanırım..
Virgüllü verileri transpoze etmek istiyorum örnek dosyayı ekliyorum...
Şimdiden çok teşekkür ederim...

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu bir modul sayfasına kopyalayıp çalıştırınız.

 Sub ayir()
Set sh = Sheets("Sheet1")
For i = 1 To sh.Cells(65536, 1).End(xlUp).Row
   For Each hucre In Split(sh.Cells(i, 2), ",")
      son = sh.Cells(65536, 4).End(xlUp).Row
      sh.Cells(son + 1, 4) = sh.Cells(i, 1)
      sh.Cells(son + 1, 5) = hucre
   Next
Next i
Set sh = Nothing
End Sub

 

[veyselemre]

Alternatif

Sub ayir2()
    son = 1
    For i = 1 To Cells(65536, 1).End(xlUp).Row
        a = WorksheetFunction.Transpose(Split(Cells(i, 2), ","))
        boyut = UBound(a)
        Cells(son, 5).Resize(boyut) = a
        Cells(son, 4).Resize(boyut) = Cells(i, 1)
        son = son + boyut
    Next i
End Sub

 

[prepositions]

Teşekkür

Arkadaşlar sorunumu tamamen çözdünüz çok ama çok teşekkür ederim..