Soru Aynı hücrede yer alan verileri alt alta yazdırmak

[likaba]

Merhabalar,

Sol tarafta ham data yer almakta, sağ tarafta ise istenen veri yer almakta.
Birden fazla ad soyad virgülle ayrılmış biçimde tek hücrede yer almakta. Bunları alt alta yadırıp diğer bilgileri de aynen yanlarına yazdırmak istiyorum. Yardımcı olabilir misiniz?

https://www.dosya.tc/server43/mqtkjb/Kitap1.xlsx.html

 

[AdemCan]

Merhaba örnek kod.
İlgili sayfanın kod bölümüne ekleyiniz.

Sub test()
son = Range("A" & Rows.Count).End(3).Row
son2 = Range("G" & Rows.Count).End(3).Row
Range("G2:K" & son2 + 1).Clear
satir = 1
    For i = 2 To son
        kisi = Split(Cells(i, 5), ",")
    sayi = UBound(kisi)
        For r = 0 To UBound(kisi)
            satir = satir + 1
            For c = 7 To 10
                Cells(satir, c) = Cells(i, c - 6)
            Next c
                Cells(satir, 11) = kisi(r)
        Next r
    Next i
End Sub

 

[bmutlu966]

Alternatif olsun.

 

[likaba]

Merhaba örnek kod.
İlgili sayfanın kod bölümüne ekleyiniz.

Sub test()
son = Range("A" & Rows.Count).End(3).Row
son2 = Range("G" & Rows.Count).End(3).Row
Range("G2:K" & son2 + 1).Clear
satir = 1
    For i = 2 To son
        kisi = Split(Cells(i, 5), ",")
    sayi = UBound(kisi)
        For r = 0 To UBound(kisi)
            satir = satir + 1
            For c = 7 To 10
                Cells(satir, c) = Cells(i, c - 6)
            Next c
                Cells(satir, 11) = kisi(r)
        Next r
    Next i
End Sub

Çok teşekkür ederim.

 

[likaba]

Alternatif olsun.

Çok teşekkür ederim.

 

[Korhan Ayhan]

Bende formüllerle biraz pratik yaptım. Oldu gibi görünüyor.

 

[likaba]

Bende formüllerle biraz pratik yaptım. Oldu gibi görünüyor.

Çok teşekkür ederim Korhan Bey