Virgülle ayrılmış yanyana isimleri alt alta dizme

[sirkülasyon]

Selamün Aleyküm;
Hayırlı Akşamlar. İnşalah yardımlarınız neticesinde çözebileceğimi umduğum bir sıkıntım var.
B3 hücresinde Hemen hemen 300'e yakın isim var. Her ismin arasına "," virgül konulmuş.
Bu B3 hücresinde aralarına "," konularak yazılmış isimleri B4 hücresi dahil olmak üzere alt alta iki "," arasında ki isimleri nasıl alabilirim?
Yardımcı olabilir misiniz?

Teşekkür Ederim Saygılarımla

 

[bzace]

Hayırlı akşamlar,
B4 hücresine yazıp, aşağı doğru çoğaltınız.

=KIRP(EĞER(EHATA(BUL(">";YERİNEKOY(YERİNEKOY(","&B$3&",";",";"<";
  SATIRSAY($4:4));",";">";SATIRSAY($4:4))));"";
      PARÇAAL(YERİNEKOY(YERİNEKOY(","&B$3&",";",";"<";
  SATIRSAY($4:4));",";">";SATIRSAY($4:4));
        BUL("<";YERİNEKOY(YERİNEKOY(","&B$3&",";",";"<";
  SATIRSAY($4:4));",";">";SATIRSAY($4:4)))+1;
        BUL(">";YERİNEKOY(YERİNEKOY(","&B$3&",";",";"<";
  SATIRSAY($4:4));",";">";SATIRSAY($4:4)))-BUL("<";
        YERİNEKOY(YERİNEKOY(","&B$3&",";",";"<";
  SATIRSAY($4:4));",";">";SATIRSAY($4:4)))-1)))

 

[ÖmerBey]

Alternatif olsun;
Kodla yapmak isterseniz:

Sub ayir()
değer = Range("B3")
ayraç = ","
For a = 0 To (Len(değer) - Len(Replace(değer, ayraç, ""))) / Len(ayraç)
    Cells(a + 4, "B") = Split(değer, ayraç)(a)
Next
End Sub

 

[antonio]

Selamün Aleyküm;
Hayırlı Akşamlar. İnşalah yardımlarınız neticesinde çözebileceğimi umduğum bir sıkıntım var.
B3 hücresinde Hemen hemen 300'e yakın isim var. Her ismin arasına "," virgül konulmuş.
Bu B3 hücresinde aralarına "," konularak yazılmış isimleri B4 hücresi dahil olmak üzere alt alta iki "," arasında ki isimleri nasıl alabilirim?
Yardımcı olabilir misiniz?

Teşekkür Ederim Saygılarımla

Bir alternatif daha

Sub SIRALA()
adlar = Split(Trim(Range("B3")), ",")
For i = 0 To UBound(adlar)
    Range("B" & i + 4).Value = adlar(i)
Next i
End Sub