satır aktarma

[k_enan]

ekte sorumuz mevcuttur.gerekli soru dosyada vardır.
ilgilenen arkadaşlara tşk ederim.
hayırlı çalışmalar

 

[Ferhat Pazarçevirdi]

Merhabalar

Formüllerle bu işin verimli yapılacağını sanmıyorum.

Aşağıdaki kodu bir defa çalıştırınız. Tüm veriler satırlara ayrıştırılacaktır.

Sub Ayristir()
    Dim vSpl As Variant
    Dim i As Integer
    Dim x As Integer
    
    For i = 1 To Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
        For Each vSpl In Split(Sheets("Sayfa1").Cells(i, 1), ";")
            x = x + 1
            Sheets("Sayfa2").Cells(x, 1) = "'" & CStr(vSpl)
        Next
    Next i
    
    Sheets("Sayfa2").Select
End Sub

.