hücre içindeki kelime sonuna kelime ekleme

[qwertylion]

arkadaşlar bnim sorunum örneğin a2 hücresindeki ankara kelimesinin sonuna toplam kelimesini ekleyip ankara toplam olarak gözükmesi. veriler düzensiz olup birbirinini takip etmemekte.yani önce a2 düzelecek sonra a5 sonra a9 gibi bunu nasıl otomatik yaparım 3000 tane veriyi tek tek girmek istemiyorum
yardımcı olunsanız sevinirim.

 

[Necdet]

Merhaba,

Sorunuzu örnek bir tablo ile destekleyerek sorunuz, daha çabuk yanıt alırsınız.

 

[pinaryalcin06]

ankara1 toplam ankara1toplam
ankara2 toplam ankara2toplam
ankara3 toplam ankara3toplam
ankara4 toplam ankara4toplam
ankara5 toplam ankara5toplam
ankara6 toplam
ankara7 toplam
ankara8 toplam gibi
ankara9 toplam
ankara10 toplam

 

[Orion1]

Ekli dosyayı inceleyiniz.
Link aşağıdadır.

DOSYAYI İNDİR

Sub Ankara06()
Dim sonsat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To sonsat
    If UCase(Right(Cells(i, "A").Value, 6)) <> "TOPLAM" Then
        Cells(i, "A").Value = Cells(i, "A").Value & "toplam"
    End If
Next i
MsgBox "işlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub