Cümlenin son iki kelimesinin ayrılması

[m.gur]

Forumda eskiden kalma şöyle bir kod buldum. Bu tam benim aradığıma benzer bir kod, ancak ufacık bir şey ilave edilirse işimi görecek. Şöyle ki; bu kod cümlenin son kelimesini ayırıp ayrı bir sütuna aktarıyor. Buraya kadar tamam bu kod bu işlemi yapıyor. Benim arzu ettiğimse son iki kelimenin ayrılması ve bir önceki sütundaki cümlenin son iki kelimesini ayırma işlemi bittikten sonra ordan silinmesi. Örnekleyecek olursak;
A sütunu : Alâeddin Yavasça Ne dert kalir ne hüzün Nihâvend Sadettin Kaynak
Kaynak kelimesi ayrıldıktan sonra
A sütunu : “ Alâeddin Yavasça Ne dert kalir ne hüzün Nihâvend ” şeklinde olmalı
Mümkünmüdür acaba. Teşekkürler.

Sub ayır()
For i = 1 To Cells(65536, 1).End(xlUp).Row
a = Split(Cells(i, 1), " ")
For j = 0 To UBound(a) - 1
Cells(i, 4) = Cells(i, 4)
Next j
Cells(i, 3) = a(UBound(a))
Next i
End Sub

 

[Mehmet Şahin]

Merhaba,
aşağıdaki gibi deneyebilirmisiniz, saygılar.

Sub ayır()
    For i = 1 To Cells(65536, 1).End(xlUp).Row
    a = Split(Cells(i, 1), " ")
    Cells(i, 1) = ""
        For j = 0 To UBound(a) - 1
            If j < UBound(a) - 1 Then
            Cells(i, 1) = Cells(i, 1) + a(j) + " "
            Else
            Cells(i, 2) = a(UBound(a) - 1) & " " & a(UBound(a))
            End If
        Next j
    Next i
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.

C sütununa son 2 sözcüğü
B sütununa ise son 2 sözcüğü silinmiş olarak yazar.

Sub ayır()
For i = 1 To [A65536].End(3).Row
    a = Split(Cells(i, 1), " ")
    Cells(i, "C") = a(UBound(a) - 1) & " " & a(UBound(a))
    Cells(i, "B") = Replace(Cells(i, "A"), Cells(i, "C"), "")
Next i
End Sub

 

[m.gur]

Her iki kod da çalıştı. Çok teşekkür ederim. Ellerinize sağlık.