Bir Satırda bulunan verileri ayıklama

[u.L.a.s]

Örneğin A1 satırında aşağıdaki gibi bir veri var. ben bu veri içerisinden tireyle ayrılmış rakamları 10 ar hane ayırmak istiyorum
yani bu satırdaki 1801010101 i bir aşağı satıra 25821212121 i onun altındaki satıra 1897959698 i onun altına derken alt alta ayırmak istiyorum. Bunun formülü nedir bilgilerinizi ve yardımlarınızı rica ederim

1801010101-25821212121-1897959698-2654855858-34732532136-......-bu şekilde gidiyor

 

[systran]

metni sütunlara dönüştürü kullandın mı?

 

[u.L.a.s]

evet o şekilde denedim tamam yanyana sütunlara ayırdı ama. ben sütunlara değil alt alta satırlara dağıtsın istiyorum.

Çok teşekkürler

 

[Murat OSMA]

Ayırmak istediğiniz hücreyi seçin ve makroyu çalıştırın;

Sub Emre()
    Dim ayır As Variant, i As Integer
    ayır = Split(ActiveCell.Value, "-")
    For i = 0 To UBound(ayır)
        Range("A65536").End(3)(2, 1) = ayır(i)
    Next i
    i = Empty: ayır = Empty
End Sub

 

[u.L.a.s]

Çok teşekkürler. systran arkadaşım seninde verdiğin bilgi güzeldi. başka işlerimde kullanırım.

Murat Osma tamda istediğim şeydi bu çok çok teşekkür ederim.

 

[Murat OSMA]

Rica ederim, iyi akşamlar.