son kelimeyi sağdaki hücreye aktarma

[steppe]

Arkadaşlar,
B sütununda adresler var.Adresin sonundaki il adlarını c sütununa kopyalamak istiyorum.Değişik örnekler var ama yukarıdaki açıklamaya göre uyarlayamadım.Yardımlarınız için teşekkürler.

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırınız.

Sub SonSozcuk()
 
    Dim a, i As Long
 
    For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
        a = Split(Cells(i, "B"), " ")
        If Not Cells(i, "B") = "" Then Cells(i, "C") = a(UBound(a))
    Next i
 
End Sub

.

 

[steppe]

Yardımın için teşekkür ederim.Bir küçük ricada bulunabilir miyim? B sütunundakilerin tamamını değilde yalnızca seçilenleri C sütununa aktarabilir mi?

 

[Ömer]

Sub SonSozcuk()
 
    Dim a, hucre As Range
 
    For Each hucre In Selection
        a = Split(hucre, " ")
        If Not hucre = "" Then hucre.Offset(0, 1) = a(UBound(a))
    Next hucre
 
End Sub

Bu şekilde deneyiniz.

.