Excelde virgülle ayrılmış kelimeleri alt alta sıralama

[esrarengizdj]

Merhaba Arkadaşlar,
1 saattir uğraşıyorum yapamadım. excelde a1 sütununda

ali,veli,mehmet,osman,hasan diye giden virgülle ayrılmış kelimeler var. hepsi tek sütunda.
ben bunları alt alta B sütununa yazdırmak istiyorum şöyleki;

ali
veli
mehmet
osman
hasan

diye. yardımcı olabilirmisiniz.

 

[Ömer]

Merhaba,

Kodu çalıştırın.

Sub Ayir()

    Dim s, i As Integer, sat As Integer
    
    Range("B:B").ClearContents
    
    s = Split(Range("A1"), ",")
    
    sat = 1
    For i = 0 To UBound(s)
        Cells(sat, "B") = s(i)
        sat = sat + 1
    Next i
    
End Sub

.

 

[esrarengizdj]

nasıl çalıştıracağım

Merhaba,
kodu nasıl çalıştıracağım
b1 e yapıştırdım olmadı

 

[Ömer]

Önce herhangi bir Excel dosyası açın (boş olabilir)
2007 versiyona göre:
Sol üst köşedeki excel simgesine tıklayın ve Excel seçeneklerine girin / Güven Merkezini işaretleyin bu işlemden sonra sağ altta "Güven Merkezi Ayarları" vardır, buraya girip soldan "Makro Ayarları" seçeneğini işaretleyin açılan ekrandan "Tüm makroları etkinleştir(önerilmez)" seçeneğini işaretleyip tamam ile işlemi bitirin. Dosyayı kaydetmenize gerek yok.

Bu işlemi kullandığınız bilgisayarda bir defa yapmanız yeterlidir.

Daha sonra kodları uygulayacağınız dosyayı açın, Alt + F11 tuşlarına basın açılan ekrandan, Insert menüsünden Module işaretleyin, yeni bir sayfa açılacaktır. Yazdığım kodları bu sayfaya kopyalayıp yapıştırın ve Alt F11 açtığınız bu sayfayı kapatıp Excele geçin.

Şimdi Alt + F8 basıp açılan ekrandan "Çalıştır" butonunu kullanın.

.

 

[esrarengizdj]

Teşekkürler

Oldu çok teşekkür ederim.