Metni Satırlara Dönüştür !

[meleklerim]

Merhaba arkadaşlar,
bir hücrede (diyelim A1) birbirinden ; ile ayrılmış veriler var
Örnek
kalem;defter;silgi;

Bu verilerin başka bir sayfada alt alta sıralanmasını istiyorum
kalem
defter
silgi

şeklinde

Yapılabilirse şayet bu türde yazılmış 10bine yakın satır var. Herbirinde de farklı sayıda veri var, hepsini TEK SÜTUNA ve ALT ALTA gelecek şekilde bir makro yazılabilir mi?

Örnek sayfa1
A1 satırı [kalem;defter;]
A2 satırı [top;tüfek;cd;]
A3 satırı [elma;armut;karpuz;şeftali;]
A4....
A5
A10000 [balık;tavşan;8]

BUNLARI
sayfa2
A sütununa
kalem
defter
top
tüfek
elma
armut
karpuz
şeftali
balık
tavşan
8

gibi sıralamam lazım. (aslında daha sonra aynılarını silinip sadece Tekil girişler kalması lazım onu yapabilirim,)

Yardımcı olacak arkadaşlara şimdiden teşekkürler

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

A sütunundaki verileri B sütununa benzersiz olarak listeler.

Sub VERILERI_BENZERSIZ_LISTELE()
    Dim X, Y, Data, Satir
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Range("B:B").ClearContents
    Satir = 1
    
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        If Cells(X, 1) <> "" Then
            Data = Split(Cells(X, 1), ";")
            For Y = 0 To UBound(Data)
                If WorksheetFunction.CountIf(Range("B:B"), Data(Y)) = 0 Then
                    Cells(Satir, 2) = Data(Y)
                    Satir = Satir + 1
                End If
            Next
        End If
    Next
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[meleklerim]

hay Allah razı olsun kardeşim, çok işime yaradı. teşekkürler binlerce