Çok Satırlı Hücreleri Tekli Satıra Dönüştürme

[badmad34]

Merhaba arkadaşlar,

Eklemiş olduğum dosyada görülebileceği üzere, A sütununda bulunan çok satırlı hücreleri B sütununda tekli satılar halinde bölmek istiyorum. Bunu nasıl yapabilirim?

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub TekSatır()
For i = 2 To Range("A" & Rows.Count).End(3).Row
    x = Split(Cells(i, 1).Value, Chr(10))
    For j = LBound(x) To UBound(x)
        ss = Range("B" & Rows.Count).End(3).Row + 1
        Cells(ss, 2).Value = x(j)
    Next
Next
End Sub

 

[badmad34]

Çok teşekkürler.

 

[rikan]

Bu kodları bi açıklarmısın

 

[dEdE]

Bu kodları bi açıklarmısın

Sub TekSatır()
For i = 2 To Range("A" & Rows.Count).End(3).Row
A sütununda 2. satırdan son stıra kadar gittik.
x = Split(Cells(i, 1).Value, Chr(10))
Her hücredeki alt alta yazılmış verileri ayırarak x isimli diziye aldık.
For j = LBound(x) To UBound(x)
Dizinin ilk karakterinden son karakterine kadar gittik
ss = Range("B" & Rows.Count).End(3).Row + 1
B sütunundaki ilk boş satırı bulduk
Cells(ss, 2).Value = x(j)
B sütununu ilk boş satırına ayırdığımız sözcüğü yazdık
Next
varsa ikinci sözçüğü yazmak için geri döndük.
Next
Varsa diğer hücredeki verileri ayırmak için geri döndük.
End Sub