Excelde tek hücredeki paragrafları farklı hücrelere yazdırabilirmiyiz

[asdsxx]

Arkadaşlar ekteki dosyada 4 hücrede yaklaşık 80 paragraf cümlesi var ben bunların her bir paragrafını ayrı ayrı hücrelere nasıl yazdırabilirim.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu sayfanızın kod kısmına kopyalayıp çalıştırın.
Sonucu "C" sütununa yazar.

Sub test()
    Dim Veri As Range
    Dim VeriSay As Long
    Dim Parcala() As String
    Dim ParcaSay As Long
    Dim Bak As Long
    VeriSay = Cells(Rows.Count, "B").End(xlUp).Row
    For Each Veri In Range("B3:B" & VeriSay)
        Parcala = Split(Veri, vbLf)
        For Bak = 1 To UBound(Parcala) + 1
            ParcaSay = Cells(Rows.Count, "C").End(xlUp).Row
            Cells(ParcaSay + 1, "C") = Parcala(Bak - 1)
        Next
    Next
End Sub